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Preface 



This reference manual is intended for programmers who 
want to write programs for the IBM 5280 using the 
assembler language. The programmer is expected to 
either have previous experience using an assembler lan- 
guage or be familiar with the 3741 Application Control 
Language (ACL). 

Using this publication, the programmer should be able to: 



Chapter 4 describes each instruction. 

Chapter 5 explains how to load the assembler program 
product and how to assemble a source program. It describes 
an assembly listing and cross-reference listing. 

Chapter 6 describes control areas and functions. The func- 
tions include optional common functions. 



• Understand the general organization of main storage. 

• Understand the purpose of each control statement and 
the proper order for using each control statement in 
an assembler program. 

• Understand the purpose of each instruction and the 
proper order for using each instruction in an assembler 
program. 

• Write a source program. 

• Load the assembler program product into the IBM 5280 
system, respond to the assembler prompts, assemble the 
source program, and write the object program to a 
diskette. 



Chapter 7 explains how to use the ACL to assembler lan- 
guage conversion program to convert ACL programs. 

Appendix A lists the instruction mnemonics in alphabetic 
order and gives the op code and format for each mnemonic. 

Appendix B describes SCS control codes. 

Appendix C describes the computations generated by the 
.SELFCHK control statement parameters. 

Appendix D consists of codes and charts, including 
EBCDIC charts and scan codes. 

Appendix E lists all error codes for the assembler program 
and conversion program. 



• Understand the assembly listing and cross reference 
listing. 

• Debug the assembler source program to get an error-free 
listing. 

Chapter 1 contains a general overview of how (1 ) a source 
program is written, (2) an object program is executed, and 
(3) main storage is organized. It also explains the coding 
conventions used in the assembler language and in this 
publication. 

Chapter 2 discusses such programming concepts as tables, 
subroutines, formats, external status, and self-check compu- 
tations. It describes data management for input and output 
operations. 



Related Publications 

• IBM 5280 General Information, G A2 1 -9350 

• IBM 5280 System Concepts, G A2 1 -9352 

• IBM 5280 Functions Reference Manual (available" at a 
later date) 

• IBM 5280 Message Manual (available at a later date) 



Chapter 3 describes each control statement. 
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Chapter 1. Introduction 



The IBM 5280 is a diskette-based data entry system with partitioned main storage. 
It consists of keyboard/display data stations with optional diskette drives, a com- 
munications line, and printers. The 5280 operates with multiple tasks, each running 
in a main storage partition. It can be used in data entry, remote batch, remote 
inquiry, or preprocessing environments. Input source records can be edited, veri- 
fied, and placed into main storage registers, tables, or other data areas. In main 
storage, the records can be manipulated with arithmetic and logical operations. 
The records can then be reformatted and written to a data set. (A data set is a 
group of records stored on a diskette.) The data sets on the diskettes can then be 
used as input to a data processing system. 

The data stations and I/O (input/output) devices are described in the General 
Information manual. You should be familiar with these units before you begin pro- 
gramming in the 5280 assembler language. You must also be familiar with the 
organization of main storage, which is described in this chapter. Preceding the 
overview of main storage, this chapter gives overviews of the assembler language and 
of program execution. These overviews briefly describe the format of the source 
statements, the generation of the object code, how the 5280 executes the object 
code instructions, and the major functions the object code can perform. 



OVERVIEW OF THE ASSEMBLER LANGUAGE 

The IBM 5280 assembler language consists of control statements and instructions. 
The control statements define the main storage control and data areas. The instruc- 
tions specify the operations and operands. No job control language is necessary for 
the 5280. 



The Control Statements 

In your source program, a control statement is always preceded by a period (.). 
Control statement parameters are written with uppercase letters. The control 
statements are described in Chapter 3, where they are organized by function: 

• Initialize control areas and I/O control blocks (lOBs) 

• Declare and label data areas 

• Organize tables 

• Set up screen formats 

• Set up edit formats 

• Control the assembly listing 
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The Instructions 



In your source program, the instructions specify the operations and the operands. 
Operations are specified by arithmetic symbols or by uppercase mnemonics. Oper- 
ands are specified as immediate data or as the contents of a data area. Data areas 
are referred to by a label or by a base displacement address. The instructions are 
described in Chapter 4, where they are organized by the types of operation they 
perform. The operations include: 

• Arithmetic/logical 

• Branch and subroutine 

• Communications input and output 

• Input and output to diskette or printer 

• Input and output to keyboard/display 

• Data movement 

• Partition load and exit 

• Table read, write, and search 

• Miscellaneous 



The Source Program Format 

Source statements are written with a length of 72 positions per line. Parameters 
are separated with spaces. You may space freely between parameters, but spaces 
are not allowed between a parameter and a parameter value. A control statement 
may be written on one or more lines. An instruction, however, must be complete 
within the first 72 positions of a line. Comments may be written on a control state- 
ment or instruction line, or an entire line may be written as a comment line. 

Certain control statements must be written in a prescribed order. This order is 
explained in Figure 3-1, Control Statement Summary in Chapter 3. 

The control statements and instructions of a source program must be written to a 
diskette data set before the source program can be processed by the assembler pro- 
gram. Enter each line of the source program as an 80-position record. The 
assembler program ignores the data in positions 73-80. 



The Assembler Program 

The 5280 assembler program reads the source program from the diskette and uses 
it to generate the object code. It detects syntax errors in the source control state- 
ments and instructions. It converts each label and base displacement address to 
an address relative to the beginning of the partition. It converts each series of 
screen format control statements to a string of object code, which is referred to as 
a screen format control string. From each source instruction, it generates a 4-byte 
object code instruction; the first byte always contains the operation code that 
determines the operation, and the other 3 bytes contain the operands. An operand 
may be immediate data, a format number, a table index, or the address of data to 
be operated upon. When the assembler program has converted the source program 
to object code, it then writes the object code to a diskette data set. It also gener- 
ates an assembly listing that can include: 

• Source code and object code 

• Syntax error messages 

• Storage allocation messages 

• Alphabetic cross-reference of symbols used in the source program 

The assembly listing can be written to a printer or to a diskette data set. Chapter 5 
describes how to load and execute the assembler program. 

Loading the Object Code 

The object code data set that is written by the assembler program must be loaded 
into a main storage partition for execution. The object code for a program can be 
loaded into any partition that is of sufficient size. An operator may load the object 
code by responding to a load prompt. Or a program being executed in a partition 
can have instructions to load another object program into another partition or into 
the same partition. See Partition Load and Exit Instructions in Chapter 4 for more 
information about loading the object code. 

OVERVIEW OF PROGRAM EXECUTION 

When the object data set is loaded into main storage partition, control informa- 
tion and address pointers are stored in a partition control area. This control infor- 
mation is used by the 5280 and the I/O devices during program execution. The 
control information is followed (1) by the data areas specified in the source pro- 
gram control statements and (2) by the 4-byte object code instructions. 

The 5280 executes the object code instructions sequentially until a specified time 
limit is expired or until an I/O instruction is encountered. When the time limit 
expires, the 5280 suspends processing in that partition. The 5280 then enters the 
next partition that has been loaded with an object data set and begins executing 
instructions in that partition. 
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If an I/O instruction is encountered., the 5280 determines which I/O device is to 
process the operation. It places control information into the partition control area 
and issues the I/O instruction to the device. The I/O device processes the I/O 
operation, using the control information in the partition control area and in the 
IOB that describes that I/O operation. 



Overlapped I/O 



Certain instructions may specify overlapped I/O. (The instruction descriptions in 
Chapter 4 indicate when overlapped I/O may be specified.) When the 5280 
encounters an I/O instruction that requests overlapped I/O, it issues the instruction 
to the appropriate I/O device. The 5280 then either: (1) remains in the current 
partition and executes the instruction following the I/O instruction, or (2) if the 
time limit has expired for the current partition, exits the current partition and 
executes instructions in the next partition that contains an object data set. The 
I/O device processes the I/O operation concurrently with the sequential instruction 
execution. 

If overlapped I/O is not specified, the 5280 issues the I/O instruction to the I/O 
device and exits the partition. The instruction following the I/O instruction is not 
executed until the I/O instruction is completed by the device. 



External Status 



While an I/O device is processing an I/O operation, it may encounter an external 
status condition that requires operator intervention or processing by the 5280 
controller. A four-digit condition code is placed into the IOB; it may also be dis- 
played on the status line. These condition codes are described in Chapter 2 under 
External Status and Error Conditions. 



Data Input 



For input via the keyboard/display, the screen format (which you specify with 
control statements) determines the prompts that are displayed on the screen and 
the display attributes for the screen, such as blink or underscore. The screen format 
can specify which characters are valid for each individual field of the input record. 
Valid fields of the input record are stored in an I/O buffer. 

For input from a diskette data set, a program instruction can direct the 5280 to 
read a data set record. The records in a data set can be accessed sequentially, 
directly by relative record number, or directly by key. The input record is stored 
in the I/O buffer. 



Data Manipulation 

Your instructions direct the 5280 to move the record from the I/O buffer. You can 
move a complete record or individual fields of a record to registers for arithmetic/ 
logical operations. You can place the data into a table and can search the table 
entries for logical comparisons. You can keep running totals or perform self-check 
validation. You can test the contents of a register or a storage byte. You can 

nn^f/^r^, olmr-tln nr nAmnlnu A -»+ ^ mnunmnnt inA <-l->4"> r*<-v>-v-i r-k » r i r sx •-> nnnri+lnnr 

|-»ci iuiiii oi 1 1 ijjic ui uui npi^A uaiu imuvciiiciil a 1 1 vi uaia wi i ipai uui i u^i auui 10. 



Data Output 



Your program instructions and formats also control record output. Records can be 
moved from main storage data areas to an I/O buffer. An edit format can reformat 
the record and insert punctuation. The records can then be written to a display, a 
diskette data set, a printer, or the communications line. 



OVERVIEW OF MAIN STORAGE 

Main storage is organized into areas for system control, tables, common functions, 
partitions, and a system work buffer, as illustrated in Figure 1-1. 



Absolute 
Addresses 



X'0000' 



X'OOFF' 



System Control Block 
(256 bytes) 



Global Tables 
(variable length) 



^ Common Functions J*. 

(variable length) 



Relative 
Addresses 



rX'0000' 



X'0000' 



X'0000' 



First Partition 
(variable length) 



Next Partitions 

(each of variable length) »-p 



^ Last Partition 
w~ (variable length) —p 



System Work Buffer 
(256 bytes) 



Figure 1-1. The Organization of Main Storage 

The system control block is located in the first 256 bytes of main storage. 

The fields of the system control block have fixed locations. However, all partitions, 
and all storage locations within a partition, are accessed by pointers. The pointers, 
which are set up and maintained by the 5280, are located in the fixed locations of 
the system control block. These pointers make it possible for each of your assembler 
source programs to address locations as they relate to the partition, rather than as 
they relate to main storage as a whole. These relative addresses remain valid for 
any partition into which your program is loaded. 
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Logical Device Identifiers 

Logical device identifiers are 2-character IDs that allow you to symbolically address 
a resource independently of machine or partition configuration. The logical device 
IDs are stored in a resource allocation table, which is created and loaded into the 
global tables area by the system configuration portion of the SCP (System Control 
Program). The resource allocation table specifies the logical devices that can be 
accessed by each partition. Each resource allocation table entry contains both the 
logical device ID and the physical address of that device. Whenever a program 
instruction requires a device address, you can specify the 2-character ID. The 5280 
searches the resource allocation table for the physical address of the device with 
the matching ID. The 5280 uses the device at that physical address to access the 
data set that is available to that device. 

The logical device IDs are used only in program instructions. Do not enter a 
logical device ID via the keyboard in response to a prompt that requests a physical 
address. 



Common Functions 

The common functions area contains IBM-supplied global subroutines. They can be 
accessed by a subroutine call from any partition. The labels and functions of these 
subroutines are listed in Chapter 6 under Common Function Routines. 



PARTITIONS 

There may be up to eight partitions numbered sequentially from zero. There must 
be at least one partition for each keyboard. A partition is of variable length, but it 
cannot cross a 64 K byte boundary. The number, size, and location of the parti- 
tions is defined at system configuration time. The first 256 bytes of each partition 
contains control information in fixed locations from the beginning of the partition. 
The next 3840 bytes may be used as needed for indicators, decimal registers, binary 
registers, or storage areas. This area is followed by a variable-length storage area. 
The last 256 bytes of each partition is used for a work area. Each byte of a parti- 
tion is addressable relative to the first byte of the partition. Figure 1-2 shows the 
different areas of a main storage partition. 
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Partition Control Area 

The partition control area contains control information that describes the program 
that is loaded into the partition and defines the I/O devices used in the program. 
The 5280 loads this information into fixed locations within the control area, using 
information from the common area and from the source program control state- 
ments. During program execution, the 5280 uses this control information each 
time it enters the partition to determine the partition status, the I/O status of the 
program, and the address of the next executable instruction. 



Indicators and Registers 

Immediately following the partition control area is an area that may be used for 
indicators, binary registers, and decimal registers. These bytes may be used in any 
desired combination of indicators and registers as described in the following para- 
graphs: if some of these bytes are not used for their binary register/decimal 
register capabilities, the unused bytes may be used as storage. Figure 1-2 shows 
the bytes that may be used for indicators and registers. 



Indicators 

The first 32 bytes of this area contain 255 one-bit indicators. In your source pro- 
gram, the indicators can be represented by the letter I and the indicator number. 
They are numbered sequentially from 10 to I254. The first 100 indicators (I0-I99) 
may be labeled, set, tested, and reset as your source program dictates. These indi- 
cators are referred to as program indicators. The remaining indicators (1100-1254) 
are set and maintained by the 5280, and are referred to as system indicators. 
System indicators have specific meanings assigned to them, as described in Chapter 
6 under System Indicators Within a Partition. 

You can label program indicators with a .DCLIND control statement. When the 
assembler processes the .DCLIND control statement, it assigns each specified label 
to an available program indicator. 

You can label system indicators with an .EQUATE control statement. The 
.EQUATE control statement allows you to specify the number of the indicator you 
want assigned to each label. You could use the .EQUATE statement to label pro- 
gram indicators also; however, you usually don't care which program indicator is 
assigned to each label. 

Two instructions are available to test indicators. The IFI instruction can test the 
indicator and perform a conditional branch. The IFI R instruction tests the indicator 
and performs a conditional branch, but it also resets the indicator to 0. Your pro- 
gram can use these instructions to test program or system indicators. 

You can use the instruction SON to set an indicator (1), or the instruction SOFF 
to reset an indicator (0). See Set Indicators under Miscellaneous Instructions in 
Chapter 4 for a description of these instructions. 

As Figure 1-2 illustrates, the bytes that are used for the indicators are also used for 
the first 16 binary registers or for the first two decimal registers. The last bit of the 
sixteenth binary register, or the second decimal register, is not used as an indicator. 



Binary Registers 

The first 256 bytes of this area may be used for up to 128 two-byte binary registers. 
Binary registers can be represented by the letters 'BR' followed by the register 
number. The registers are numbered sequentially from BRO to BR127. BR0-BR15 
are used as indicators (as described in the preceding paragraphs), and BR16-BR31 
are used as system registers. The system registers are used and maintained by the 
5280 during program execution and hold information as described in Chapter 6 
under System Registers Within a Partition. You should not assign these registers 
to any other purpose. The system registers should always be reserved (see the 
RGLT parameter of the .START control statement). In your source program you 
can access the reserved registers by register number, or you can use the .EQUATE 
control statement to assign them labels. 

The binary registers that are not reserved by the RGLT parameter of the .START 
control statement can be labeled and initialized by declare control statements in 
your source program. Use the .DC control statement to label and initialize one 
binary register, or the .DCLBR control statement to label several uninitialized 
binary registers. 

Although binary registers are 2 bytes in length, you can access either 1 or 4 bytes 
by defining the byte length, in parentheses, following the register number or label. 
If you specify a length of 1 byte (BR40(1 )), only the rightmost byte of BR40 is 
accessed. If you specify a length of 4 bytes (BR40(4)), the 2 bytes of BR40 and 
the 2 bytes of BR41 are accessed. A binary register specification with a length of 
4 bytes is referred to as a binary double register. 

Binary registers are often used to hold addresses. The instructions to load a binary 
register are described in Load Binary Register under Data Movement Instructions in 
Chapter 4. In your source program, you can load a 2-byte binary register with: 

• An unsigned decimal integer (0-65535) 

• Two EBCDIC characters 

Figure 1-3 shows the hex representation of binary data in two binary registers. 



High- Low- 
Order Order 



BR75 
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Byte Byte 
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C D ! F 



Figure 1-3. Binary Registers 
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The following examples illustrate the different ways you can refer to BR75 if you 
assign it the label BREG1. 



BR75 
BR75(2) 
BREG1 
BREGK2) 



specifies the full 2-byte binary register, which contains 
hexadecimal F01A. 



BREG10) 1 specifies the low-order byte of BR75, which contains 

BR750) J hexadecimal 1A. 



iKD 1 

(1) J 

(4) 1 

11(4) J 



BR75(4) I specifies the 4 bytes of BR75 and BR76, which contain 

BREGK4) f hexadecimal F01ACD0F. 



Decimal Registers 

The 3840 bytes of this area may be used for up to 240 sixteen-byte decimal 
registers. Decimal registers can be represented by the letter R and the register 
number. The registers are numbered sequentially from R0 to R239. The bytes 
within R0 and R1 are used for indicators; the bytes within R2 and R3 are used for 
system registers. You should not assign R0-R3 for any other purpose. In your 
source program, the decimal registers reserved by the RGLT parameter of the 
.START control statement can be accessed by register number. Or you can use 
the .EQUATE control statement to assign them labels. 

Decimal registers not reserved by the RGLT parameter of the .START control 
statement can be labeled and initialized by the declare control statements in your 
source program. Use the .DC control statement to label and initialize one decimal 
register, or the .DCLDR control statement to label several uninitialized decimal 
registers. 

Although a decimal register is 16 bytes in length, a double decimal register of 32 
bytes may be specified by defining the byte length in parentheses, following the 
register number or label. Decimal registers and double decimal registers are valid 
in decimal arithmetic and shift operations, branch operations, and table operations. 
All data in decimal registers is stored in EBCDIC notation. The instructions to 
load a decimal register are in Load Decimal Register under Data Movement Instruc- 
tions in Chapter 4. In your source program, you can load a 16-byte decimal 
register with: 

• A positive or negative decimal number (±0 to 10 16 -1) 

• Up to 16 EBCDIC characters 

The following examples illustrate the different ways that you can refer to R120 if 
you assign it the label REGX. 

R' 
_~~ \ specifies the 16 bytes of R 120. 



1120 1 
IEGX / 

) 



R120(32) 

REGX (321 ^ specifies the 32 bytes of R 120 and R 121. 
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The contents of a decimal register may be positive or negative; the sign is deter- 
mined by the zone half of the byte in the units position (byte 15) of the decimal 
register. If the register contains a positive number, hex F is in the zone half; if it 
contains a negative number, hex D is in the zone half. Figure 1-4 illustrates the sign 
control position in a decimal register. 



Sign Control Position 

Byte 1 2 3 4 5 6 7 8 9 10 . 11 12 13 14 15 

Zone 

Digit 







Figure 1-4. The Sign Control Position in a Decimal Register 



The zone halves of the bytes are used for sign control; however, no checking is done 
by the 5280 to determine whether the register contents are numeric or alphabetic. 



Storage 



Following the registers is a variable-length area of storage. The size of this area is the 
size of the partition, less the 256 bytes of the partition control area and the bytes 
used for indicators and registers. The instruction object code is stored in this area, 
with the buffers, tables, formats, messages, device lOBs, control tables, data, and 
data structures necessary for the program. 



Addressing Methods 

In your source program, each byte of storage within a partition can be addressed 
directly, using an assigned label, or indirectly, using a displacement and a base 
address. 

Direct labeled addressing of a storage location is accomplished by using a declare 
control statement to assign a label to a storage area of any length. To access this 
labeled area in a source program instruction, the following format is used. 

label [(length)] 

where: 

label is the assigned label from the declare control statement. The label 
addresses the leftmost byte of the storage area. 

length is the length, in bytes, of the storage area. If length is not specified in 
the instruction, the length defaults to the length assigned to that area by the 
declare statement. 
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Indirect base displacement addressing of a storage location is accomplished by 
specifying in the instruction (1) the location of the base addres and (2) the dis- 
placement from that base address at which the storage area is located. The length 
may be specified for many, but not all, instructions. To access a storage location 
by indirect addressing, one of the following formats is used. 

[displacement] ([length] , BRn) 
[displacement] (BRn) 

where: 

displacement is the number of bytes (0-255) from the base address at which the 
storage area is located. If the displacement is not specified, it defaults to 0. 

length is the length, in bytes, of the storage area. The instruction descriptions 
indicate whether or not length is allowed in the address. If a length specification 
is allowed, it must be followed by a comma. If length is omitted from an instruc- 
tion that allows a length specification, the comma must be retained. If the 
instruction does not allow a length specification, the comma must not be 
included in the address. 

BRn is a binary register that contains the base address. The base address is rela- 
tive to the start of the partition. 

When a source program instruction that has an indirect storage address is 
assembled, the displacement is added to the base address in the binary register. 
The result is the relative address of the leftmost byte of the data area. This address 
is placed in the object code. 

Examples: 

Direct: BIN1 = STOR1(2) 

The contents of the byte at STOR1 and the next byte (length is 2) 
are loaded into the binary register labeled BIN1. 

Indirect: BIN2 = 1(2, BREG) 

The displacement of 1 is added to the address stored in the binary 
register labeled BREG. The contents of the byte at the resulting 
address and the contents of the next byte (length is 2) are loaded 
into the binary register labeled BIN2. 



Partition Work Area 

Following the variable-length storage area is a 256-byte work area. This area is set 
up by the assembler, and it is used by the 5280 during program load and program 
execution. Your assembler program should not access or change the bytes of this 
work area. 
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MAIN STORAGE BOUNDARY ALIGNMENT 

Main storage is divided by several types of boundaries. Each type of boundary 
encloses an area of a specific number of bytes. Many data areas must begin on a 
certain type of boundary. Figure 1-5 represents a main storage partition and 
points out the different types of boundaries. The system configuration portion of 
the SCP begins each partition on a 256-byte boundary and measures the length 
of each partition in multiples of 256 bytes. 
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l X'0124' is on a 2-byte and 4-byte boundary. 














120' is on a 2-byte, 4-byte, and 16-byte boundary . 












vn 





R0 
R1 
R2 



X'0000' is always on a 256-byte boundary. 



The address of a 2-byte boundary ends in 0, 2, 4, 6, 8, A, or C. 

The address of a 4-byte boundary ends in 0, 4, 8, or C. 

The address of a 16-byte boundary ends in 0. 

The address of a 128-byte boundary ends in 00 or 80. 

The address of a 256-byte boundary ends in 00. 

Figure 1-5. Main Storage Boundaries 



When you declare a register in your source program, the assembler places it on the 
next sequential boundary appropriate for the type; it places a binary register on a 
2-byte boundary and a decimal register on a 16-byte boundary. It places all other 
data types on 1-byte boundaries unless you specify a boundary. When you are build- 
ing a storage structure, you may want to specify a boundary. When the 5280 
assembler processes your source control statements and sets up these data areas, it 
skips over any storage bytes between the current location and the next appropriate 
boundary in order to observe the boundary restrictions. These bytes cannot be 
used by your program. Your assembly listing indicates how many storage bytes are 
lost due to boundary alignment. See the examples following the description of the 
.DC control statement in Chapter 3 for an illustration of boundary alignment. 
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BLANKS, CONSTANTS, AND CODING SYMBOLS 

In your source program, you may specify optional blanks before or after an equal 
sign, arithmetic operator, or parenthesis. Blanks may follow a comma but must not 
precede a comma. Blanks are not allowed within a field; however, one or more 
blanks must separate fields if no other delimiter is used. 

A constant may be specified as a decimal value, a hexadecimal value, a binary value, 
or a character. A constant may also be equated to a label; the label can be specified 
in an instruction that accepts a constant. Decimal digits are simply written as digits. 
Binary, hexadecimal, and character data are prefixed by a capital letter (B, X, and 
C respectively) and enclosed in single quotes. For character data the capital C is 
optional. Do not leave a blank between the capital letter and the first quote. 

n Decimal digits 

XT Hexadecimal digits; I = 0-F 

BT Binary digits; I = 1 or 

CI' EBCDIC characters; I = any valid EBCDIC character 

To specify the single quote character, use two quotes (C'IT"S'). 
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Symbols Used in This Manual 

The symbols used in this manual are of two types, syntax symbols and statement 
symbols. The syntax symbols are used to illustrate syntax and are not to be used in 
writing your source programs. The statement symbols are a part of the language 
and must be coded as shown. 



Syntax Symbols 

Syntax symbols are not to be coded in the source program. 

Symbol Definition 

[ ] Brackets enclose optional item(s) to be used or not, at your 

discretion. 

{ } Braces enclose two or more items from which you must select one. 

Three dots indicate that the preceding can be repeated. 

b Lowercase letters represent information you must supply. (You 

label must substitute your own values for the lowercase terms.) 

n Represents an unsigned decimal number. 

±n Represents a signed decimal number. 

0—9 Represents a range of numbers from which one number can be 

selected. (The dash is not coded.) 



In 



BRn 



Rn 



Represents an indicator, which can be referred to by label or 
number. 

Represents a binary register, which can be referred to by label or 
number. 

Represents a decimal register, which can be referred to by label or 
number. 



BRa When more than one register may be used in a statement, the letters 

Rb a, b, and c may replace the n to more clearly demonstrate the posi- 

tions in the statement that the different registers may occupy. 

constant Represents any form of constant as described in this chapter. 
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Statement Symbols 

Statement symbols must be used in an assembler source program as shown in the 
syntax illustrations: 



Symbol 



S 
LABEL 



Definition 

Colon is used after symbolic labels. 

Semicolon delimits statements. 

Point, or period, begins control statements. 

Equal sign causes the value of the data area on the left of the equal 
sign to be changed according to the value of the data area on the 
right of the equal sign. 

Parentheses enclose certain parameter values. 

Single quotes enclose literals and are used to specify numeric data 
other than decimal. The use of single quotes is interchangeable with 
the use of capital C and single quotes. For example, C'abc' and 'abc' 

produce the same results. 

Comma separates parameter values. 

Uppercase letters are assembler language and must be coded as 
shown. 
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Chapter 2. Programming Concepts 



This chapter discusses various data areas that are set up according to your control 
statements and are used by the 5280 during program execution. The discussions 
often refer to the control statements that generate the areas and the instructions 
that use the areas during program execution. Each control statement is described 
in Chapter 3; each instruction is described in Chapter 4. 



TABLES 



Tables play an important part in 5280 assembler programming. Two kinds of 
tables may be set up and used by your program: data tables, which are set up by 
TABLE control statements, and label tables, which are set up by .LABTAB 
control statements. Also, the assembler builds system tables, which are used by the 
5280 during program execution. These system tables allow you to refer to a data 
area with a label; the 5280 converts the label to an index that points into a system 
table and locates the address and parameters of the area. 



System Tables 



When the assembler processes control statements that set up as tables, formats, or 
prompts, it places the address of each table, format, or prompt in a table. This table 
of addresses is a system table, and is used by the 5280 during program execution. 
System tables are stored in the partition storage area. You can specify the address 
of the system tables by using the .SYSTAB control statement in your source pro- 
gram. Otherwise, when the assembler encounters the .END control statement, it 
stores the system tables at the addresses immediately following the last address that 
contains program object code. The address of each system table is stored in the 
partition control area. The control statements that generate a system table argu- 
ment are listed below, with the system table into which the argument is entered. 



System Table 

Table control 
Edit format control 
Screen format control 
Prompt control 
Duplicate and store control 



Control Statements 

TABLE 

.FMT series (each series = 1 argument) 

.SFMT series (each series = 1 argument) 

.DC TYPE=PRMT 

.DC TYPE=MDUP 
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When a source instruction refers to a prompt, table, duplicate field, store field, or 
format, the instruction specifies only the label. The 5280 uses this label to find 
the system table entry; the system table entry provides the address and other control 
parameters. The system table entries are stored sequentially, in the order they 
occur in the source program. Except for the prompt system table, the first entry 
in a system table is at index 0; for the prompt system table, the first entry is at 
index 1. The assembler places the table index into the object code instruction. 
This method requires only 8 to 10 bits of the 4-byte object code to provide the 
address and parameters of the requested data area. The .SYSTAB control state- 
ment description in Chapter 3 describes how to specify the labels and addresses of 
the system tables. 



Data Tables 



Contiguous fields of related data can be referred to as a data table. In your source 
program, you can allocate and initialize the fields of a data table by using .DC 
control statements. After you have allocated the fields, you must use the .TABLE 
control statement to structure the fields into a table. The first argument in a data 
table is at index 1. You may have up to 128 tables within a partition. You must 
include one .TABLE control statement for each table in your source program. 

You can use instructions in your source program to request that the 5280 search, 
read, or write the entries in a data table. See Table Instructions in Chapter 4 for a 
description of these instructions. 

Data tables can be fixed length or variable length, according to your .TABLE control 
statement. See the .TABLE control statement definition in Chapter 3 for an 
example of .DC and .TABLE control statements that build a variable length table. 



Label Tables 



Label tables are tables that contain addresses; they are used by your program to 
make indexed branches and indexed subroutine calls. In your source program you 
use a .LABTAB control statement to set up a label table. 

The parameters of the .LABTAB control statement specify the labels of the sub- 
routines or instructions you wish to enter into the label table. The address of the 
first label specified in the .LABTAB statement is entered at index in the label 
table, the address of the second label is entered at index 1 , and so on. When you 
code a GOTAB or CALLTB instruction, you specify (1) the label of the label table 
and (2) the label table index of the subroutine or instruction you wish to execute. 

The 5280 makes similar indexed branches through the label table you use for your 
external status condition subroutines, if you code a separate subroutine to handle 
each condition. (See Keyboard /Display External Status in Chapter 6.) You specify 
this label table in the ETAB parameter of the .KBCRT control statement. 
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DATA TYPES 



Each source instruction and control statement requires specific types of data to be 
used as operands. For some operands only one type of data is accepted. For 
example, the format operand of the ENTR instruction requires a screen format 
specification; no other type of data is accepted. For other operands more than one 
type of data may be specified. For example, the operand of the ZONE instruction 
may be specified as a decimal register or as a constant. 

The following data types can be used in the instruction and control statement 
operands. 

• Label or number of an indicator 

• Label or number of a binary register 

• Label or number of a decimal register 

• Label of an instruction 

• Label of a data storage area (from a STOR type .DC) 

• Label of a prompt (from a PRMT type .DC) 

• Label of a duplicate area (from a MDUP type .DC) 

• Label of an edit format 

• Label of a screen format 

• Number of a data set 

• Index of a table 

• Constant 



SUBROUTINES 



A program can call any subroutine that is stored within the partition. Calls to 
routines in the common function area are discussed under Common Function 
Routines in Chapter 6. 

Two source instructions can be used to call a subroutine: the CALL and CALLTB 
instructions. These instructions are described in Chapter 4 under the Subroutine 
Call and Return instructions. A CALL instruction must include a label or a binary 
register, or both. If the CALL instruction includes a label, a normal call is made to 
the statement at the specified label. If the CALL instruction specifies a binary 
register and no label, a call is made to the address contained in the register. If the 
CALL instruction specifies a binary register and a label, the contents of the binary 
register are added to the address of the specified label, and a branch is made to the 
resulting address. 
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The CALLTB instruction is used to make an indexed branch through a label table. 
The label table must be set up and labeled by a .LABTAB control statement. You 
include this label table and a binary register when you write the CALLTB instruc- 
tion. The binary register contains the index of the subroutine you wish to call. The 
first entry in the label table is at index 0. When the CALLTB instruction is 
executed, the call is made to the subroutine at the specified index into the label 
table. If you use a separate subroutine for each external status condition, the 5280 
uses this method to call the appropriate external status subroutine. The 5280 uses 
BR23 to hold the index into the external status subroutine label table. 



The Partition Subroutine Stack 

Whenever a subroutine call instruction is executed, the address of the next 
sequential instruction is assumed to be the return address and is stored into the 
partition stack. The partition stack is a system table with 2-byte entries, located in 
partition storage. You may use the .SYSTAB control statement in your source 
program to specify the address and size of the partition stack. Otherwise, when the 
assembler encounters the .END statement it locates the beginning of the partition 
stack in the address following the last address that contains program object code or 
system tables. In either case, it stores the address of the beginning of the partition 
stack in BR18, which is referred to as the stack pointer. When the first subroutine 
call is executed, the 2-byte return address is placed in storage at the address indi- 
cated by BR 18. Then the address in BR 18 is incremented by two, so that it points 
to the next available stack entry. If another call is executed before a return is 
made to the first call, the return address for the second call is placed in the address 
indicated by BR 18, and BR 18 is incremented by two. In this way, you can have 
nested subroutine calls. You must remember, however, that each nested call adds 
another 2-byte entry to the partition stack. If the partition stack extends beyond 
the end of the partition, a program check error results. 



Subroutine Returns 

External status subroutine returns depend upon the particular external status 
condition and are described under External Status and Error Conditions in this 
chapter. 

Other subroutines end with a RETURN instruction. When this instruction is exe- 
cuted, the content of BR 18 is decremented by two so it points to the last address 
entered into the partition subroutine stack. If the RETURN instruction includes a 
binary register, an indexed return is made. The content of the binary register is 
added to the address pointed to by BR 18, and control returns to the resulting 
address. 

Figure 2-1 illustrates how the partition stack and stack pointer are used during sub- 
routine calls and during returns. 
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Figure 2-1. Overview of Subroutine Calls and Returns 
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THE STATUS LINE 

The top line of the data station screen normally displays the status line. The 5280 
maintains status line fields, which communicate status information to the operator. 
Figure 2-2 illustrates the status line fields. 

Position Mode 
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s the partition number. 

s the current position counter. 

s the error or condition code. 

s the field shift. 

s the insert mode symbol. 

s the positions remaining in the field. 

s the hex value of the current position. 

s the logical device ID. 

s the program name (first 8 characters). 

s the data set name. 



Figure 2-2. The Status Line Fields 



The Partition Number 



The partition number is maintained only during an attach or detach operation. 
Upon completion of a successful attach operation, this status line field contains 
the partition number of the attached partition. Upon completion of a successful 
detach operation, this field contains the partition number of the foreground parti- 
tion that is permanently associated with the keyboard. 



The Current Position Counter 

The current position counter is maintained only during the processing of an 
ENTR command. This status line field contains the value of the position counter. 
The value is automatically updated with each keystroke. The value reflects the 
current position, relative to: (1) the beginning of the I/O buffer, (2) the first posi- 
tion on the screen, (3) the first position of the record, or (4) the first position of 
the field. The CNTR parameter of the .KBCRT control statement determines 
which value is maintained in the counter. 
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777e Error Code 



The error code field of the status line contains the error code of the current error. 
It is maintained by the 5280 to reflect all errors. If your program issues a keyboard 
operation to send an error code to the status line, you may place the code in 
positions 1-65 of the status line; however, the code is normally placed in positions 
3-11. 



The Field Shift 



The field shift position of the status line is maintained only while an ENTR com- 
mand is being processed. It contains the symbol that reflects the keyboard shift 
for the current field or subfield. 



The Insert Mode Symbol 

The insert mode symbol is maintained only during the processing of an ENTR 
command in insert mode, after the operator has pressed the Ins (Insert) key. 



The Positions Remaining in the Field 

This status line field is maintained only while an ENTR command is being processed. 
It reflects the number of field positions remaining to be entered in the current input 
field. If the value is greater than 99, two asterisks (**) are contained in the status 
line field. 



The Hex Value of the Current Position 

The hex value is maintained on the status line only while an ENTR command is 
being processed. It is the hex value contained in the I/O buffer position that corre- 
sponds to the current position of the cursor. 



Nondisplay of the Status Line 

Certain applications may require the use of every line on the screen. For these 
applications, the DISPEX instruction can remove the status line from the screen so 
the top line can be used to display data or prompts, or both. The 5280 maintains 
the status line whether or not it is displayed on the screen. If an error occurs when 
the status line is not being displayed, the DISPST instruction can temporarily 
replace the current top line with the status line in order to communicate error 
information to the operator. Or the FUNC parameter of the .KBCRT control state- 
ment can specify that the 5280 determines whether the status line is being displayed 
whenever an error occurs; if it is not, the 5280 displays it, then returns the top line 
when the error is reset. The data from the top line is not lost and may be returned 
to the screen after appropriate error recovery has been accomplished. 

The DISPEX and DISPST instructions are discussed under Keyboard Operations in 
Chapter 4. The .KBCRT control statement is discussed under .KBCRT Control 
Statement in Chapter 3. 
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tx i tKiMAL status anu lkkur conditions 

When an I/O error condition or a condition that requires operator intervention 
occurs, the 5280 generates an appropriate condition code and places it into the 
IOB of the data set that was being processed when the condition occurred. The 
condition code is made up of four digits that describe the condition: 

• Device reporting the condition (first digit) 

• Category of the condition (second digit) 

• Condition number (third and fourth digits) 
The device digits are: 

Digit Device 

5280 controller 

1 Keyboard/display 

2 Printer 

3 Diskette 

4 SNA communications access method 

5 BSC communications access method 
9 Program 

The category digits are: 

Digit Device 

Communications completion codes 

1 Operator intervention required 

2 Hard error (not retried) 

3 Error that has been unsuccessfully retired 

4 IOB error 

5 Soft error (has been successfully retried) 

6 Exception condition 

7 Warning message, program execution may continue 

8 Reserved 

9 Software termination 

The last two digits of the condition code are the condition number. The condition 
number specifies the condition and varies depending upon the device and category. 
All condition codes and messages will be described in the Message Manual. 
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The following information concerning the condition is placed into system binary 
registers within the partition when the condition occurs. 

Register Information 

BR 19 Used only with keyboard/display external status, this register con- 

tains the relative address of the field in the I/O buffer that holds the 
current record. The address is relative to the beginning of the parti- 
tion and is valid only when BR21 contains a field specification. 

BR20 Used only with keyboard/display external status, this register con- 

tains the absolute address of the current field in the screen refresh 
buffer and is valid only when BR21 contains a field specification. 
The screen refresh buffer is located within the keyboard /display unit 
and holds the data that appears on the screen. 

BR21 Used only with keyboard/display external status, this register con- 

tains a control specification or a field specification. If it contains a 
field specification, it also contains the length minus one of the 
current field in the I/O buffer. See Keyboard /Display External 
Status in Chapter 6 for the format of the contents of this register. 

BR22 Used with all external status except keyboard/display, this register 

contains the relative address of the last IOB to report external status. 

BR23 Used with all external status, this register contains the index of the 

current external status condition. This index can be used by your 
program as the index into your external status subroutine label table. 
Except for keyboard/display external status, this index is the cate- 
gory digit from the condition code. See Keyboard /Display External 
Status in Chapter 6 for information about this index for keyboard/ 
display external status. 

If you write subroutines to handle certain external status conditions, such as the 
keyboard/display external status conditions, your program may use the data in 
these registers. Do not change the data in the system registers. 



KEYBOARD DATA ENTRY 

Keyboard entry of each input record is initiated with an ENTR command. The 
input record is formatted according to the screen format. The operator enters 
characters into the fields of the input record, and the 5280 makes character and edit 
checks to make sure the characters are valid for the field, according to the specifica- 
tions in the screen format. Data keys and many function keys sound a response 
click from the keyboard. The characters, as they are entered, are stored into the 
I/O buffer and are displayed on the screen. For enter, update, and verify modes a 
keystroke counter is incremented when each character is entered. (See Keystroke 
Counters in Chapter 6 for more information.) The cursor is moved to the screen 
position where the next character is to be entered. The operator can move the 
cursor forward and backward within the current record. 
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The status line displays data entry information such as the current keying position, 
the number of positions remaining to be filled in the current field, and the key- 
board shift for the field. 

The operator can select functions, such as duplicate or skip, by pressing the appro- 
priate function keys. You can let the 5280 process keyboard functions, or you can 
include your own routines to handle these functions. See the Functions Reference 
Manual for more information about the keyboard functions. 



Modes of Entry 

The 5280 supports three basic modes for data entry: 

• Enter mode, for initial data entry 

• Update mode, for inspection and modification of previously entered data 

• Verify mode, for having data checked for accuracy and making necessary 
corrections 

In addition to these basic modes, rerun mode or display mode can be selected by 
your program to perform special functions. You can select one of these five modes 
with the MODE parameter of the .KBCRT control statement. (See .KBCRT Con- 
trol Statement in Chapter 3.) Insert mode or field correct mode is automatically 
selected by the 5280 when the appropriate keystroke is entered. 

Enter Mode 

When the 5280 executes an ENTR command in enter mode, each data character is 
displayed on the screen and placed into the I/O buffer as it is entered. Prompts, 
constant inserts, duplicate fields, skip fields, and display attributes are displayed 
when the cursor moves to the first position of the field or to the attribute position; 
these positions are specified in the screen format. Constant inserts are also placed 
into the I/O buffer as they are displayed. When the complete screen format has 
been processed, the I/O buffer holds the constant inserts and the newly entered 
data. 

Update Mode 

When the 5280 executes an ENTR command in update mode, prior instructions in 
your program must have placed a previously-entered record into the I/O buffer. 
The 5280 displays prompts, display attributes, and the contents of the I/O buffer. 
The display attributes and prompts are determined by the screen format. The 
operator can enter a new data character into any record position to replace the data 
character currently in the record. The new data character is displayed on the 
screen and placed into the I/O buffer as it is entered. When the operator has 
completed all necessary modifications, the I/O buffer contains the original data in 
all positions that were not modified and the new data in the positions that were 
modified. 
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Verify Mode 



When the 5280 executes an ENTR command in verify mode, prior instructions in 
your program must have placed a previously-entered record into the I/O buffer. The 
5280 displays the prompts and display attributes as for enter mode, according to the 
screen format. It does not display the contents of the I/O buffer. As the operator 
enters a data character into a record field position, it is verified against the contents 
of the corresponding field position in the I/O buffer. If the newly entered 
character matches the original character, which is in the I/O buffer, it is displayed 
on the screen and the cursor moves to the next position. If the newly entered 
character does not match the original character, the cursor remains at the character 
position, the original character and the remainder of the field in the I/O buffer are 
displayed, and a verify mismatch error is reported. The operator must press the 
Reset key, then enter either the character displayed above the cursor or reenter 
the character that caused the mismatch. If the character that is displayed above the 
cursor is entered, the remainder of the field is removed from the screen and the 
cursor moves to the next position. If the character that caused the mismatch is 
reentered, that character is displayed above the cursor and replaces the original 
character in the I/O buffer. A verify-correction keystroke counter is incremented 
(see Keystroke Counters in Chapter 6) and the cursor moves to the next position. 
If the character entered is neither the original character nor the character that 
caused the mismatch, another verify mismatch error is reported. If the operator 
backspaces over a data position on the screen, the position is blanked and must be 
reentered and reverified. 



Rerun Mode 



When the 5280 executes an ENTR command in rerun mode, no data or prompts 
are displayed on the screen. The status line counters, keyboard shift, and hex 
display information is not maintained. The entire screen format is processed, 
except that a clear-screen function that is specified at the start or end of the format 
is ignored. Character and field edit checks are bypassed. Auto duplicate, auto skip, 
and main storage duplicate and store functions are performed if the auto-dup^kip 
switch is turned on or if the field has the AA (absolutely automatic) attribute speci- 
fied in the screen format. Constant inserts are placed into the I/O buffer. When 
an RG (return to program) exit specification is encountered in the format, the 
appropriate external status condition occurs. 



Rerun/Display Mode 

When the 5280 processes an ENTR command in rerun/display mode, the prompts, 
display attributes and the contents of the I/O buffer are displayed as for update 
mode. The status line information is maintained. Character and field edit checks 
are bypassed. Auto duplicate, auto skip, main storage duplicate and store, and RG 
functions are performed as for rerun mode. 

Rerun mode requires less execution time than rerun/display mode, and is the mode 
usually selected for the rerun function. Rerun/display mode can be used when an 
error occurs when a record is being processed in rerun mode, and the operator 
must inspect the record data order to recover from the error. 
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Display Mode 



When the 5280 executes an ENTR command in display mode, prior instructions 
in your program must have placed a previously-entered record into the I/O buffer. 
The 5280 displays prompts, display attributes and the contents of the I/O buffer. 
The display attributes and prompts are determined by the screen format. The 
cursor is not displayed, and no data can be entered. If a buzz or clear-screen func- 
tion is specified at the end of the screen format, it is ignored. When the 5280 has 
processed the complete screen format, the external status condition for record 
advance (condition 6) occurs. 

You can use display mode to inspect the prompts and display attributes of a screen 
format. Do not confuse display mode with rerun/display mode. 



Insert Mode 



Insert mode is initiated when the operator presses the Ins key. Insert mode is valid 
only when an ENTR command is being processed. When the Ins key is pressed, the 
insert mode symbol is displayed on the status line. When the operator presses a 
data key, the data character is inserted into the field at the current cursor position. 
All field positions to the right of the cursor, and the cursor and character above the 
cursor, are shifted one position to the right. Insert mode is canceled when the 
operator presses the Reset key. 



Field Correct Mode 

Field correct mode is selected by the 5280 when it is processing an ENTR in verify 
mode and the operator presses the unshifted Corr key. The cursor moves to the 
first position of the field, and the field is filled with blanks in the I/O buffer and 
on the screen. The operator can then enter data into the entire field as for enter 
mode. The character and field edit checks are performed. When the cursor exits 
the field in the forward direction, the 5280 returns to verify mode. The field can 
now be verified. 



AUTOMATIC FUNCTIONS 

While the 5280 is processing formatted data entry, certain functions may be 
initiated automatically as specified in your application program. These functions 
include auto enter, auto duplicate/skip, and alternate record advance. You can 
activate these automatic functions by including the FUNC parameter of the 
.KBCRT control statement. You can activate automatic functions by providing 
support in your program for the Auto Enter and Dup Skip keys. See the 
Functions Reference Manual for a detailed description of all keyboard functions. 
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Auto Enter 



If you specify auto enter in your .KBCRT control statement, the 5280 automati- 
cally performs a record advance function when the operator enters the last input 
position of a record. 

If you do not specify auto enter, the 5280 sets the system in the awaiting record 
advance state when the operator enters the last position of a record. The operator 
must then press the Enter key or Rec Adv key to initiate a record advance function. 



Auto Duplicate/Skip 

If you specify auto duplicate/skip in your .KBCRT control statement, the 5280 
automatically processes any field that is defined in your program as an auto 
duplicate or auto skip field. When the cursor moves to the first position of an auto 
duplicate field, the 5280 duplicates data into the field from the area specified by 
your program. (See Field Definitions later in this chapter for more information 
about duplicate fields.) When the cursor moves to the first position of a skip field,, 
the 5280 fills the field with blanks and then moves the cursor to the first position 
of the next field. 

If you do not specify auto duplicate/skip in the .KBCRT control statement, a dupli- 
cate field or skip field is processed as for a manual field. In order to initiate the 
duplicate or skip function, the field must have also been specified as absolutely 
automatic in the program, or the operator must press the Dup Skip key. (Software 
must provide support for this key.) 



Alternate Record Advance 

If you specify alternate record advance in your .KBCRT control statement, when 
the operator presses the Enter key or Rec Adv (Record Advance) key the processing 
of the current record stops. Any specifications for fields or screen control that is 
defined in your program for positions between the cursor position and the end of 
the record are ignored. 

If you do not specify alternate record advance, any specifications for fields or 
screen control defined for positions between the cursor position and the end of 
the record are processed. Input fields are processed as though a -* (Field Advance) 
key were pressed for each field. 



SCREEN FORMATS 

A screen format is a series of source program control statements that define each 
field of a record to be entered via the keyboard. The control statements also define 
the prompts and display attributes that appear on the screen while the record is 
being entered. The series of control statements must begin with a .SFMTST state- 
ment and must end with a .SFMTEND statement. You can write up to 256 screen 
formats for each partition. 
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When the assembler processes each series of control statements, it generates a string 
of object code referred to as a screen format control string. The assembler stores 
each screen format control string in the partition storage area, and places the address 
of each string in a system table. 

During program execution, formatted key entry is initiated by a key entry com- 
mand, the ENTR command. Each ENTR command specifies the format to be used 
to enter the record. The 5280 searches the system table for the address of the 
screen format control string generated from the specified format. The 5280 then 
processes the screen format control string in the same order that the source program 
control statements were written. 

Besides the .SFMTST and .SFMTEND control statements, the screen format control 
series includes the following control statements: 

Control 

Statement Purpose 

.SFMTPMT To specify prompts 

.SFMTCNS To specify constant insert data 

.SFMTFLD To define each field and subfield of the record 

.SFMTCTL To specify keyboard, screen, and format control 

The sequence of a screen format for a typical key entry job could begin with a 
statement to display a prompt requesting the operator to enter a field of data. 
The next format statement could define the valid characters that the operator may 
enter into the field. As the operator enters the field, the 5280 checks each input 
character to make sure it is valid according to the screen format statement that 
defines the field. Each valid input character is placed into an I/O buffer. The next 
screen format statement could move the cursor or the pointer in the I/O buffer 
that contains the current record. Then another prompt could request the operator 
to enter the next field. 

When all the specifications of a screen format are processed, the complete input 
record is in the current record buffer. The 5280 must then execute object code 
instructions to move the data from the current record buffer to registers or other 
storage areas. When the 5280 has moved the data from the buffer, another ENTR 
may be issued, with the same or a different screen format specification. 



Prompts 



In your source program, you label and initialize each prompt by using a .DC 
(declare) control statement. You must specify PRMT for the TYPE parameter and 
define the prompt message with the INIT parameter. Then, when you write a 
screen format using the .SFMT control statements, you specify the label of the 
prompt with a .SFMTPMT statement. 

When the assembler processes your source statements, it stores the prompt labels 
in a system table. It stores the system table index for the prompt in the screen 
format control string. 
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During program execution, when the 5280 encounters a prompt index while 
processing a screen format control string, it finds the address of the appropriate 
prompt at that index into the system table. It takes the prompt message from the 
storage address and displays it on the screen. The prompt message is not inserted 
into the current record buffer. 

You can specify the screen position where each of your prompts are displayed. A 
prompt can be displayed in the standard fixed prompt location, which begins in 
column one of line two. You can specify a different line for the fixed prompt posi- 
tion by including the FPLC parameter of the .KBCRT statement. Each current 
fixed prompt replaces the previous fixed prompt on the prompt line. You can also 
have the prompt displayed at the current cursor position, or at a specified number 
of positions to the right or left of the current cursor position, or on the beginning 
of the next line. All of these options for the placement of your prompt are 
described under .SFMTPMT Control Statement in Chapter 3. 



Constant Insert Data 

In your source program, you can specify constant data to be inserted into the 
current record buffer and displayed upon the screen during program execution. The 
constant data is labeled and initialized with a .DC control statement, with PRMT 
specified for the TYPE parameter. It is specified in a source screen format with a 
.SFMTCNS statement. The 5280 finds the appropriate constant insert data by using 
the prompt system table. The insert is processed as if it were a prompt, except that 
the constant is displayed on the screen and inserted into the current record buffer. 



Field Definitions 

You can define the individual fields of the record by including a .SFMTFLD state- 
ment for every field. The parameters of the .SFMTFLD statement specify the field 
length and the character set that is valid for the field. Other parameters can break 
a field down into a number of subfields, or indicate that the field is a data required, 
automatic duplicate, or right adjust field. Parameters can also specify display attri- 
butes that effect the individual field, such as blink, highlight, or underscore. 



Main Storage Duplicate and Store 

You can specify a main storage duplicate field, or a main storage store field, by 
including an MD or MS parameter in the .SFMTFLD statement that defines the field. 
The MD or MS parameter specifies the label of the main storage data area. This 
main storage data area must be allocated and labeled with a .DC statement that 
specifies MDUP for the TYPE parameter. 

When a main storage duplicate field (MD) is entered, the contents of the specified 
main storage area are automatically copied into the field in the current record buffer 
if one of the following is true: 

• The field is also specified as auto duplicate and absolutely automatic (AD, AA 
in the third FLDF position). 

• The field is also specified as auto duplicate (AD in the third FLDF position) and 
the auto dup/skip mode is active. 
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key. When the Dup key is pressed, the duplication starts at the current field posi- 
tion and continues to the end of the field. 

When a main storage store field (MS) is exited, the contents of the field are auto- 
matically copied into the specified main storage location if one of the following is 
true: 

• The field is also defined as absolutely automatic (AA in the third FLDF position). 

• The auto dup/skip mode is active. 

Example: The following declare control statements allocate and initialize a prompt 
and a constant insert and allocate a data area in main storage. The screen format 
control statements use the prompt, constant insert, and data area to illustrate a 
main storage store and main storage duplicate. 

DC LABEL-PTNAME TYPE=PRMT INIT='Name: '; 
DC LABEL=CONST1 TYPE=PRMT INIT='Hello '; 
DC LABEL=DUPNAME TYPE=MDUP LEN=20; 



SFMTST LABEL=PFT04 CNTL=MV; 

SFMTPMT PRMT=SP,PTNAME ; display a standard position prompt 

SFMTFLD FLDF=A,20,AA MS=DUPNAME; 

*The operator enters a name into the 20-byte alphabetic field, which is 

*specified as absolutely automatic. The characters are displayed and placed 

*into the I/O buffer as they are entered. When the field is exited, the 

*contents of the field are stored into the main storage data area labeled 

*DUPNAME because the AA is specified. 

.SFMTCNS CNST=CONST1 BFPS=1 CSPS=NL; 

*The constant is displayed on a new line, the I/O buffer pointer is incremented 

*1 to skip 1 position in the buffer, and the constant is placed into the I/O 

*buffer. 

.SFMTFLD FLDF=A,20,AD,AA MD=DUPNAME ; 

*When the cursor moves to the first position of this field, the name is 

*automatically copied from the data area labeled DUPNAME into the I/O 

*buffer and is displayed on the screen. 



Field Control 



You can specify control of the screen, of the keyboard, and of the format with a 
.SFMTCTL control statement. The parameters of this control statement can specify 
display attributes for the screen, such as blink, reverse image, and nondisplay. Other 
parameters can enable or disable the Dup key or specify whether a field exit key is 
required to exit the current field. Other parameters can cause a field to be duplicated 
or stored, cause a conditional bypass of a portion of the format, or cause a secondary 
format to be processed. 
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Secondary Screen Format 

You can specify a secondary screen format series by including a .SFMTCTL control 
statement at the position where you want the secondary screen format to begin. 
The .SFMTCTL statement must have an ES parameter that indicates the label 
(LABEL parameter of the .SFMTST statement) of the secondary screen format. 

The secondary screen format specification acts in a way similar to a subroutine 
call. When an ES parameter is encountered while the primary screen format series 
specifications are being processed, control goes to the first specification of the 
secondary screen format. All specifications of the secondary screen format series 
are processed. Then control returns to the primary screen format, to the statement 
following the ES parameter. 

Only one level of secondary formats is allowed. 

Example: In the following example, three screen formats are used to enter a 
record: the primary format FMT04, the secondary screen format FMT16, and the 
secondary screen format FMT17. 

.SFMTST LABEL = FMT04; begin primary screen format. 
.SFMTPMT LABEL = PROMPT6; primary format displays a prompt. 
.SFMTCTL ES = FMT16; process complete screen format FMT16. 
.SFMTPMT LABEL = PROMPT7; primary format displays a prompt. 
.SFMTCTL ES = FMT17; process complete screen format FMT17. 
.SFMTPMT LABEL = PMTEOR; 
.SFMTEND; primary screen format ends. 



Conditional Bypass 

You can specify a conditional bypass for any section of a screen format. Include a 
.SFMTCTL control statement with a CI parameter at the position in the screen 
format series where the bypass begins. Then include a .SFMTCTL statement with 
a CNTL = CE parameter at the position where the bypass section ends. 

For the CI parameter, you must specify an indicator label followed by either ON 
or OFF. Use the label assigned by a .DCLIND control statement. When the 5280 
encounters the bypass specification, it checks the specified indicator. If the indi- 
cator is 1 and the CI parameter specified ON, or if the indicator is and the CI 
parameter specified OFF, the 5280 bypasses all field, display attribute, and prompt 
specifications between the CI and the CE specifications. However, the cursor and 
current record buffer pointer are moved past the space on the screen and in the 
current record buffer where the bypassed fields, display attributes, or prompts 
would have appeared. If the bypass specifications are encountered in a forward 
direction, the current field counter is incremented by the number of fields by- 
passed. If it is encountered in a backward direction, the current field counter is 
decremented. If an RG (return to program), BFPS (change buffer position pointer), 
CSPS (change screen position pointer), or a control specification to change status 
is encountered during bypass, it is processed as normal. If an ES (execute second- 
ary format) specification is encountered, the fields and control specifications of the 
secondary format are processed as described above for a bypass. 
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Example: The secondary format FMT06 is not executed if the indicator CHECK 10 
is 1: 



SFMTST LABEL = FMT05 CNTL = MV; 

SFMTCTL CI = CHECK10, ON; the indicator is labeled CHECK10. 

SFMTCTL ES = FMT06; a secondary format specification. 

SFMTCTL CNTL = CE; end bypass section. 



Only one level of conditional bypass is allowed. Do not follow a CI parameter with a 
second CI parameter before a CE specification is included. However, you can have 
more than one bypass within a screen format series if each CI parameter is followed 
with a CE specification. Do not follow a CI parameter with a .SFMTST or a 
.SFMTEND control statement before a CE specification is included. 



Returning (RG) Exits 

When you write a screen format in your source program, you may wish to 
temporarily interrupt key entry in order to have program operations performed. 
You can do this by including a CNTL=RG parameter in any .SFMT control state- 
ment except the .SFMTEND statement. The assembler sets a bit in the screen 
format control string whenever it encounters an RG specification in the source 
screen format. Then, when the 5280 executes the screen format control string and 
encounters this bit in a forward or backward direction, it interrupts key entry and 
reports external status condition 4 or 5, respectively. 

You could include an RG exit immediately following an input field you want to 
self-check, or immediately following an input field you want to add to a running 
total. 



EDIT FORMATS 

Edit formats are used to reformat the fields of a record as the record is moved 
between main storage and the current record buffer. Each edit format is set up by 
one .FMTST control statement followed by one .FMTFLD for every field in the 
record. The .FMTFLD statement specifies the length of the field and the registers 
to or from which the field is moved. It can also specify editing for the field, such 
as the placement of a currency sign, decimal point, or minus sign. Each edit format 
must end with a .FMTEND control statement. 

The edit formats are used for several data movement instructions to move the fields 
of the record to or from the current record buffer after the record has been read, 
or before it is written. 
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Edit formats may be used for read and write instructions for the diskette drive, 
communications line, and printer. When an edit format is specified in a read 
instruction, the record is reformatted as it is read into the current record buffer. 
The format edits the record, removing currency symbols and punctuation. The 
edit format then specifies the registers or storage locations into which each field is 
moved. For a write instruction, the format moves the fields from the specified 
registers or storage locations to the current record buffer and replaces the currency 
symbols and punctuation. The reformatted record is then written from the current 
record buffer to the diskette, printer or communications line. 



Data Directed Formatting 

For input records, you can specify that the formatting is data directed. The 
.FMTST statement allows you to specify a control character and where the control 
character is located in the record. When you write a data directed read instruction, 
you specify an asterisk (*) rather than a format label. Then, during execution of a 
read operation, the 5280 selects the appropriate format by matching the control 
character of the input record to the first format that has the same control character 
specification. 



FIELD MODIFICATION INDICATORS 

There are 32 field modification indicators: 1160-1191. Each indicator represents a 
field in the screen format, up to 32 fields. If there are more than 32 fields in the 
format, each indicator represents every 32nd field. 1160 represents field 0, field 32, 
field 64 and so on. A format level zero specification is represented by one indicator 
for the entire group of 1-byte fields. 

When the 5280 encounters an ENTR command, it sets each field modification 
indicator to zero. Each time the cursor is advanced or backspaced into a field, the 
5280 sets a bit in the partition control area to zero. If data is entered into the field, 
the 5280 sets the bit to 1. When the cursor exits the field, the 5280 ORs the bit 
with the field modification indicator that represents the field. 

Constant inserts are assigned field modification indicators. Whenever the insert is 
moved into the I/O buffer and onto the screen, the corresponding field modifica- 
tion indicator is turned on. 

If an external status condition occurs while the cursor is within a field, the corre- 
sponding field modification indicator has not yet been ORed with the bit in the 
partition control area; therefore, it may not indicate that the field has been modi- 
fied in the current record. 

If your program makes a change to a field in the current record in the I/O buffer, it 
is your responsibility to update the corresponding field modification indicator. 
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DISKETTE DATA MANAGEMENT 

Diskette operations for the 5280 include operations to read, write, search, insert, 
and delete records that are stored in diskette data sets. The data sets may be 
sequential or key indexed data sets. In a sequential or key data set, the 5280 can 
access records sequentially, in the order they were entered. In a sequential data 
set, the 5280 can access records directly, by relative record number. In a key 
indexed data set, the 5280 can access records directly by key. When a key 
indexed data set is opened, an index table of the keys is built automatically, or 
you can choose to build your own key index table. 



Label Update 

By specifying a label update type data set, you can update the HDR1 labels and 
sectors 1 through 7 of track on the diskette index as though it were a sequential 
update data set. For label update, the 5280 treats each 128-byte diskette data set 
label as a record. The record number of the last label is both the EOD (end of 
data) and the EOE (end of extent) record number. By specifying a label update, 
erase-type data set, you can create labels without reading the existent label values. 
Only the index cylinders are accessed for the label update access method. 



Physical and Logical Buffers 

You must set up at least one physical buffer in main storage for any program that 
has I/O instructions. The physical buffer length must be a multiple of 128 bytes 
and must begin on a 128-byte boundary. You can use double buffering for 
minimal delays in interactive programs; set up a second physical buffer so the 
5280 can process data in one while an input or output operation is being performed 
with the other. For keyboard/display I/O, double buffers are required to duplicate 
fields of a previous record into the same field of a current record. The 5280 keeps 
track of the buffers and the records that are in the buffers. 

You can block your data sets for faster execution; set up a logical buffer, and the 
blocking and deblocking functions are performed automatically by the 5280. Or 
you can omit the logical buffer and use pointer I/O to block and deblock logical 
records directly to and from the physical buffer. 



Automatic Logical Buffering 

When the 5280 opens a data set, it finds the address of the physical buffer and the 
logical buffer in the data set IOB. During I/O operations to or from a diskette data 
set, the 5280 maintains a record counter to keep track of the record number of the 
logical record currently being processed, relative to the first record of the data set. 
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When the 5280 is processing a sequential data set and encounters the first READ 
instruction, it reads the logical records from the diskette into the physical buffer 
until the physical buffer is filled. It then moves the first logical record from the 
physical buffer to the logical buffer. If the READ instruction specified an edit 
format, the fields of the record are edited and moved from the logical buffer 
according to the format. When the 5280 encounters the second READ instruction, 
it moves the second logical record from the physical buffer to the logical buffer. 
No more data is read from the diskette until all the logical records currently in the 
physical buffer have been processed. 

Output of sequential logical records is managed in the same way. When the 5280 
encounters the first write instruction, it writes the contents of the logical buffer 
to the physical buffer at the record position specified by the current record counter. 
Subsequent write operations place logical records into the physical buffer. The 
5280 automatically writes the contents of the physical buffer to the diskette. 



Pointer I/O 



When you use pointer I/O, your program can access logical records directly from 
the physical buffer. This saves storage that is required for a logical buffer, and saves 
the time involved in moving the logical record from the physical buffer. Omit the 
logical buffer specification in the .DATASET control statement, and specify pointer 
(PTR) for the data set attribute. When you process your source program with the 
5280 assembler, the assembler places the address of the physical buffer into the IOB 
location reserved for the logical buffer address. 

When the 5280 is processing a sequential data set that specifies pointer I/O, and 
encounters the first READ instruction, it reads the logical records from the diskette 
into the physical buffer until the physical buffer is filled. The logical buffer 
address in the data set IOB points to the first logical record in the physical buffer. 
The logical record is not moved to another storage location but is processed directly 
from the physical buffer. 

When the 5280 encounters subsequent READ instructions, it updates the logical 
buffer address in the data set IOB so the address always points to the current logical 
record in the physical buffer. For sequential write operations, the logical buffer 
address is the address of the next logical record to be written. 

You cannot use an edit format to edit and move the record fields when you use 
pointer I/O for diskette operations. However, you can place the address of the 
logical record into a binary register and use it to access the individual fields of the 
record using base displacement addressing. The address of the logical record is in 
the IOB at displacement hex 0C-0D. The 5280 does not update this base address in 
the binary register; you must replace the address before each I/O operation. 
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Keyed Data Sets 



Keyed data sets can be read according to a specified key. When a keyed data set is 
opened, an index table is built from the record keys. The index table can be built 
either by the application program or automatically by the 5280, depending on the 
TYPE parameter of the .DATASET control statement. If a KR (key indexed read) 
or KU (key indexed update) data set is specified, the 5280 automatically builds the 
index table. If a KRN (key indexed read, no table build) or a KUN (key indexed 
update, no table build) data set is specified, the application program must build the 
index table. The .TABLE control statement is used to define the table. The 
parameters of the .DATASET control statement and the TABLE control statement 
that are used for keyed data sets are as follows: 



.DA TASET Control Statement 

TYPE= Specifies one of the following keywords: KR, KU, KRN, or KUN. 

In addition, may also specify ORD (records in ascending key 
sequence). 

KPOS= Specifies the position of the key in the record. 

KLEN= Specifies the length of the key. 

TLOC= Specifies the location of the index table. 

DLTA= Specifies the density of the index table; optional for KR and KU 

data sets but mandatory for KRN and KUN data sets. 



, TABLE Control Statement 

LABLE= Specifies the location of the index table (also specified for the TLOC 

parameter of the .DATASET control statement). 

MAXM= Specifies the maximum number of entries that can be placed into 

the index table. 

ENTRIES= Specifies the actual number of entries used in the table. 

ARGL= Specifies the length of the index entry. This length can be less than or 

equal to the length of the key, but it cannot be greater than the length 
of the key. 

BYPAS= Specifies the number of bytes to be associated with each index entry 

that are not part of the index itself. Valid entries are 0, 1 , 2, or 3. 
If a nonzero entry is specified, the byte or bytes are used to hold the 
relative record number of the record that corresonds to the index 
entry. If is specified, the index table entry contains only the index 
entry, and the relative record number is calculated from the DLTA 
specification and the relative position of the index within the index 
table. 

Note: These parameters are in addition to the parameters required or normally 
used for a data set, as specified in Chapter 3. 
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Density of the Index Table 

The density of the index table is specified with the DLTA parameter of the 
.DATASET control statement. The density specifies the number of logical records 
between index entries. Density may be 1 entry per record, 1 entry per track, 1 
entry per 10 records, and so on. For KR and KU data sets, DLTA may be 
omitted; the density is calculated by the 5280, using the length of the data set and 
the length of the index table. The first entry in the index table is always for the 
first record; the last entry is always for the last record. The following examples 
show how the 5280 sets up index tables for various density and bypass specifica- 
tions, using the sample data set in Figure 2-3. 



KeyA/Data KeyB/Data KeyC/Data KeyD/Data KeyE/Data KeyF/Data KeyG/Data KeyH/Data Keyl/Data KeyJ/Data 



Relative " 
Record 
Number: 1 



Figure 2-3. Sample Keyed Data Set Records 



Examples: 



Density = 1 /record 
Bypass = 2 



Density = 1/2 records 
Bypass = 3 



Density = 1/3 records 
Bypass = 



KeyA0001 
KeyB0002 
KeyC0003 
^L KeyD0004 

*Y KeyJOOOA'T - 



Index 
Table 



KeyA000001 
KeyC000003 
KeyE000005 
Key G 000007 
Key 1000009 
KeyJOOOOOA 



Index 
Table 




Index 
Table 



Reading a Keyed Data Set 

When the 5280 encounters a READ instruction for a keyed data set, the instruction 
specifies a decimal register that contains the key of the record to read. The 5280 
determines which entry in the index table is the highest entry that is lower than the 
specified key, and which entry is the lowest that is not higher than the specified 
key. The 5280 determines the relative record number for the record that corres- 
ponds to each of these index entries, either by finding them in the index table (if a 
nonzero BYPAS is specified) or by calculating them (if BYPAS=0). The 5280 
searches the key positions of the records between these two relative record numbers 
until a matching key is found, and reads the record with the matching key. If the 
.DATASET control statement specifies the ORD parameter, the 5280 uses a binary 
search; otherwise the 5280 uses a sequential search. If the .DATASET control 
statement specifies a nonzero BYPAS and omits the ORD parameter, and if the 
index has one entry per record, the 5280 searches the index for the first entry that 
matches the key, then reads the data set record that corresponds to that index entry. 
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Updating a Keyed Data Set 

A keyed data set can be updated by using a READ instruction with a key specified 
to find the desired relative record number, then using a WRT instruction to update 
the record at that record position. The 5280 does not update the index table. 



Adding to a Keyed Data Set 

A record can be: (1) inserted or (2) added to the end of a keyed data set. The 
5280 does not update the index table. Therefore, records must not be added or 
inserted unless the application program provides instructions to update or rebuild 
the index before reading the data set again. 



Shared Data Sets 

Data sets that have share attributes specified in the .DATASET control statement 
can be used simultaneously by more than one program. Corresponding share 
attributes must be specified in every program that shares the data set. Improperly 
specified share attributes result in an access error external status. 

If a record is added to a shared data set, the EOD of all lOBs for that data set are 
updated to the new increased value. Record inserts are not allowed for a shared 
data set. Any operation that reduces the EOD or EOE value of a shared data set is 
not allowed. 

To make logical records more quickly available to be shared, you can use the quick 
release (QR) and early write (EW) parameters in the .DATASET control statement. 
These functions make direct access to update data sets more efficient because the 
logical record to be read or written will be released so that other programs can use 
it as soon as the operation is complete. 



SCS Conversion Data Sets 

When you store a data set on a diskette, you can save diskette space by using an 
SCS conversion data set. An SCS conversion data set is defined by specifying 
SCS in the TYPE parameter of the .DATASET control statement. When an SCS 
conversion data set is processed, SCS (standard character string) control characters 
are inserted by the 5280 to repiace blank characters. When you write the SCS 
conversion data set to a diskette, the record length on the HDR1 label must equal 
the block length. See SCS Conversion under Printer Instructions in Chapter 4 for 
information about using the SCS conversion data set. 
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SELF-CHECK 



The 5280 self-check facilities allow you to verify an input field at the time it is 
entered. The self-check function can detect incorrect keystrokes and character 
transpositions. It can also detect fraudulent entries. 

The self-check facilities include the: 

• .SELFCHK control statement, to define the self-check field, register, modulus 
and algorithm. 

• GSCK instruction, to generate a unique self-check number for each self-check 
field. 

• IF . . . CHK instruction, to verify the self-check field each time it is entered. 



The Self-Check Field 

A self-check field consists of the self-check number, which may be one or two digits 
long, and the foundation. The foundation may consist of any characters available 
to your 5280 keyboard. The self-check number may be assigned to any position in 
the field. If the self-check number is two digits long, the two digits must be 
adjacent. 

The maximum length of a self-check field is 32 bytes. 



The Self -Check Register 

The self-check field must be placed into a decimal register, or if the self-check field 
is larger than 16 bytes, a decimal double register. The 5280 right-adjusts the field 
in the register. All unused register bytes are bypassed. 

Figure 2-4 illustrates a self-check field with a self-check number one digit in length. 
The position assigned for the self-check number is the rightmost position of the 
decimal double register that acts as the self-check register. 



Register 
Position 


Self-Check Register 


Self-Check Field 


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 




06/09/1980*ARdds#478 

: . _ ___; 



1 



Bypass positions are ignored. Foundation Number Self-Check 

Digit Position 
Figure 2-4. A Self-Check Field in a Decimal Double Register 
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The Modulus 



The self-check function uses a modular arithmetic. Modular arithmetic replaces a 
number with its remainder after it is divided by a fixed number. This fixed number 
is the modulus. 

For example, clocks follow a modular arithmetic with modulus'! 2. If you add 5 to 
10 o'clock, the sum is 15 modulus12. Replace 15 with the remainder after it is 
divided by 12: 




1 
15 modulus 12 = 12 iT5~ 
12_ 
3 Remainder 




10 o'clock + 5 



3 Replaces 15. 



3 o'clock 



Stated another way, modular arithmetic replaces a number with the value in the 
units position when the number is expressed in the base of the modulus. You can 
convert a number to the base of the modulus by dividing it by the modulus and 
using the remainder for the value of the units position: 



/.'> 



<*<%o* 



1 5 10 



1 

15 modulus 12 = 12 RF 

12 

3 Remainder 
I 






«*:•<* 



1 3 12 



The value in the units position can be any number up to the modulus minus one. 
For example, if the modulus is 125, the units position can contain any number up 
to 124: 



31 



4978 modulus 125 = 125 1 4978 
375 
228 
125 
103 Remainder 






31 103, 
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The Self-Check Algorithm 

The basic steps of a self-check algorithm can be illustrated as follows, using 15 for 
the foundation and 12 for the modulus: 

Self-Check 
Field 



15 



2. 



Convert a number to the 
base of the modulus. 

The value in the units 
position is the self-check 
number. 



Foundation 



Jl 



15 modulus 12= 13 12 



153 



Self-Check 
Field 



Position for 1 -Digit 

Self-Check Number 



Usually, however, the number converted to the base of the modulus is not the 
foundation, but a number derived from the individual characters of the foundation. 
The most common way to derive a number from the characters of the foundation 
is to: 

Self-Check 
Field 



1. Multiply the contents of 
each position in the 
foundation by a weight. 

2. Add the resulting products. 

3. Convert this sum of the 
products to the base of 
the modulus. 

4. The value in the units posi- 
tion is the self-check 
number. 



1 5 _ 

Weights: *8 *6 { 

Products: 8 30 

8+30 = 38 sum 



Position for 1 -Digit 
Self-Check Number 



38modulus12 = 12[38 = 32 12 
36 
2 



1 5 2 

Self-Check 
Field 
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Numerous variations can be added to these basic steps to design a unique algorithm. 
These variations includes 

1. Input translation. You can translate each character in the foundation to a 
specified numeric value by using an input translate table. Input translation is 
useful to assign a specific value to each alphabetic or special character in the 
foundation. 

2. Product table. You can find the product for the numeric value of each 
foundation position by looking it up in a table rather than multiplying it by 
a weight. 

3. Output translation. You can translate the generated self-check number to 
any specified output characters by using an output translate table. This is 
useful if the self-check number can be up to two digits long (for modulus 
11-100) and only one self-check number position is used in the self-check 
field, or if the self-check number can be up to three digits long (for modulus 
101-127). 



Choosing Your Algorithm 

Appendix C shows how the 5280 manipulates the self-check field according to 
various parameters of the .SELFCHK control statement. Use this appendix to 
select the variations you want for your unique algorithm. 

If you do not want to design your own algorithm, you may use one of the IBM- 
supplied algorithms available with the 5280. These algorithms are referred to as 
Standard Modulus 10 and Standard Modulus 11. If you use Standard Modulus 10 
or 1 1, the 5280 assumes that your self-check field is as follows: 

• The self-check number is one digit long. 

• The self-check number is in the rightmost position of the self-check field. 

• The foundation may be from 2 to 31 characters long. 

For Standard Modulus 10 or 11, any 5280 keyboard character may be included in 
the foundation. The numeric value of each foundation position is determined by 
the low-order 4 bits of the EBCDIC representation of the contents of that position. 
If the low-order 4 bits are 0-9, the numeric value is 0-9. If the low-order 4 bits are 
A-F, the numeric value is 0. 

Example: 



Foundation: 6 9 7 * X Y 

I l i l l t 

EBCDIC: F6 F9 F7 5C E7 E8 

I 1 » ( t I 

Value: 6 9 7 7 8 
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Standard Modulus 10 

Standard Modulus 10 is designed to detect single incorrect keystrokes and single 
transpositions. If you use Standard Modulus 10, the 5280 performs the following 
operations to generate a self-check number for this sample self-check field: 



Foundation 



7 1 2 



W _ 



Self-Check Field 



Self-Check Position 



Find the numeric value for 
each foundation position. 

Multiply each value by the 
corresponding weight. The 
weights alternate between 2 
and 1, with 2 always in the 
rightmost position of the 
foundation. 

Add each digit of the result- 
ing products. 

Convert the sum to the 
base of the modulus. 

Subtract the value in the units 
position from the modulus to 
find the complement. 

Note: If the remainder is 0, 
the complement is 0. If the 
remainder is 1, the character 
combination in the foundation 
does not have a valid self-check 
number. You must eliminate 
these character combinations 
when you generate self-check 
numbers. 



7 

t 

F7 
♦ 
7 



1 
♦ 
F1 



14 
1+4 + 



2 

t 

F2 
t 
2 



♦ 

60 
t 
9 



W 

♦ 

E6 
♦ 
6 



—Foundation 

-EBCDIC 

—Value 



*2 *2 *2 -Weights 
4 12 -Products 

+4 +0+1+2= 13 Sum 



13 modulus 10= 1 3 10 



10 

1 Complement 



7 1 2 - W 7 



Self-Check Field 



The complement is the self- 
check number. 
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Standard Modulus 11 

Standard Modulus 1 1 is designed to detect single incorrect keystrokes, single 
transpositions, and double transpositions. If you use Standard Modulus 11, the 
5280 performs the following operations to generate a self-check number for this 
sample self-check field: 



Foundation 



W 



Self-Check Field 



Self-Check Position 



Find the numeric value for 
each foundation position. 



6 

♦ 

F6 
♦ 
6 



1 

♦ 

F1 
♦ 
1 



2 

♦ 

F2 
♦ 
2 



1 



t 

60 
t 








w 
t 

E6 
♦ 
6 



Multiply each value by the 

corresponding weight. Weights 

are the numbers from 2 to 7, 

starting in the rightmost posi- _§. _5_ 4_ _3_ _2 

tion of the foundation and 36 5 8 12 

going leftward. Repeat the 

numbers if necessary. 



6 - 



-Foundation 

-EBCDIC 

-Value 

Value 
Weights 

Products 



Add the whole number 
products. 

Convert the sum to the base 
of the modulus. 

Subtract the value in the units 
position from the modulus 
to find the complement. 

Note: If the remainder is 0, 
the complement is 0. If the 
remainder is 10, the character 
combination in the foundation 
does not have a valid self-check 
number. You must eliminate 
these character combinations 
when you generate self-check 
numbers. 



36 +5 +8 +0 +12 = 



61 Sum 

61 modulus 11=5 6n 



£ip* 



11 

-6 



5 -Complement 



6 1 2 - W 5 



Self-Check Field 



The complement is the self-check 
number. 
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Using the GSCK Instruction 

The GSCK instruction is used to create a new file of fixed numbers, such as 
account numbers that require self-checking each time an operator enters them. 
Your program must move the foundation into the self-check register before it 
issues the GSCK instruction. 

During the execution of a GSCK operation, the 5280 (using the algorithm you 
defined with the .SELFCHK control statement) performs manipulations upon the 
foundation to generate a self-check number. When the self-check number is 
generated from the foundation, the 5280 can place the self-check number into the 
self-check register. The foundation and its self-check number make up the 
complete self-check field. 



Using the IF . . . CHK Instruction 

The IF . . . CHK instruction is used to verify a self-check field. When an operator 
enters a self-check field, your program must move the field into the self-check 
register before it issues the IF . . . CHK instruction. 

During the execution of an IF . . . CHK operation, the 5280 again uses your algo- 
rithm to generate a self-check number from the foundation currently in the self-check 
register. The 5280 then compares this self-check number with the current 
contents of the self-check number position in the self-check register. The compari- 
son fails when the characters now in the self-check register do not match the 
characters that were in the same register positions when the GSCK operation was 
performed. 
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Chapter 3. Assembler Language Control Statements 



The 5280 assembler language control statements provide control information to the 
system and allocate registers and data areas in main storage. Certain control state- 
ments must occur in a specific order. Others may occur anywhere throughout the 
program, interspersed with instruction statements. The prescribed order is indicated 
in Figure 3-1. 



To Initialize the Partition Control Area 

.START One is required as the first statement of a program, except for optional 

listing control statements, to indicate the start of the program. 

.KBCRT One is required as the second statement, to specify keyboard/display 

control parameters. 

.EDITC One is allowed as the third statement, to specify the edit control 

characters. 



To Declare and Label Data Areas 

.DC One or more are allowed to allocate, label, and initialize any kind of 

data area. 
.DCLBR One or more are allowed following the .KBCRT statement, to allocate 

and label binary registers. 
.DCLDR One or more are allowed to allocate and label decimal registers, and 

should follow any .DCLBR statements. 
.DCLIND One or more are allowed anywhere to label user indicators. 

.EQUATE One or more are allowed anywhere to label registers, constants, 

expressions, and system registers. 



To Set Up and Initialize Device Control Areas 

.COMM One is allowed to specify the characteristics of the communications line. 

.DATASET One or more are allowed to specify the characteristics of a data set. 



To Set Up and Label Tables 

.TABLE One or more are allowed anywhere to define the parameters of a data 

table . All .TABLE statemen ts must be contiguous. 

.LABTAB One or more are allowed anywhere to set up a label table of specified 

subroutine addresses. 

.SYSTAB One or more are allowed anywhere to specify the label and location of 

system tables or the subroutine stack. 

Figure 3-1 (Part 1 of 2). Control Statement Summary 
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.FMTST One or more allowed to begin each edit format specification. 

.FMTFLD One or more allowed following a .FMTST or another .FMTFLD 

statement, to define an edit format field. 
.FMTEND One is required as the last statement of an edit format specification. 



To Set Up Screen Formats 

.SFMTST One is required for each screen format, to indicate the start of a screen 

format control specification. 
.SFMTCTL One or more are allowed within a screen format series, to specify control 

operations. 
.SFMTPMT One or more are allowed within a screen format series, to specify a 

prompt to display. 
.SFMTCNS One or more are allowed within a screen format series, to specify a 

constant to display and to place into the I/O buffer for the current 

record. 
.SFMTFLD One or more are allowed within a screen format series, to define a key 

entry field. 
.SFMTEND One is required as the last statement of each screen format series, to 

end the screen format. 



To Control the Assembly Listing 

TITLE One is allowed to specify a heading to be printed on each page of the 

listing. 
.EJECT One or more are allowed to begin printing on the next page. 

.SPACE One or more are allowed to skip one or more lines. 

Miscellaneous Control 



.INCLUDE 
.SELFCHK 

.XTRN 

.END 



One or more are allowed to insert another data set into the program. 
One is allowed to set up the self-check control area and define the self- 
check algorithm. 

One is required if the program uses any common functions, to specify 
the labels of the common functions. 

One is required following all control statements and instructions, to 
indicate the end of the program. 



Figure 3-1 (Part 2 of 2). Control Statement Summary 



The .TABLE control statements are the only ones that must be consecutive in your 
source program. However, for best performance from the assembler, place state- 
ments of the same kind together. For example, place all .FMT statements together, 
all .LABTAB statements together, and all .DC statements together. Place the 
.XTRN statement toward the beginning of the source program. 
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Control statements are listed in this chapter by the type of function the control 
statement performs. The control statements are divided as indicated in Figure 3-1, 
The syntax, parameters, and parameter keywords are described for each control 
statement. 



FORMAT 



Each control statement is written for a length of 72 positions per line. Each control 
statement must begin with a period (.) in the first position, followed by an upper- 
case statement name and its associated parameters. The parameters may be in any 
order and are separated by one or more blanks. Each parameter consists of an 
uppercase parameter name, an equal sign, and a parameter value. The parameter 
value may be one or more fields, with each field identified by the order of its 
appearance on the line. The parameter fields are separated by commas or paren- 
theses. Each control statement must end with a semicolon (;). The general format 
of a control statement is as follows: 

.NAME PARAM1=XX PARAM2=XX,XX PARAM3=(XX,XX),(XX,XX) ; 

Control statements may be continued from one line to the next by stopping 
between two parameters. The statement is continued on the next line. Each 
parameter should be complete on one line unless the parameter contains a sublist of 
keywords. In this case, the sublist may be interrupted after a comma between key- 
words as in the following example. 

Example: 

.NAME PARAM1=XX PARAM2=XX,XX PARAM3=XX, 

XX PARAM4=XX ; 

The end of the statement is always determined by the semicolon. 



Blanks 



Optional blanks may be placed before or after an equal sign or parentheses. 
Blanks may follow a comma but must not precede a comma. Blanks are not 
allowed within a control statement field; however, one or more blanks must separ- 
ate fields if no other delimiter is used. 



Comments 



A comment may be included on any line, following the semicolon. An entire line 
may be designated as a comment line by placing an asterisk (*) in the first position 
of the line. A comment line may be included before the .START statement and 
before print control statements. 

Examples: 

.NAME PARAM1=XX ; This is a comment on a statement line. 

*This is a comment line. 
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The 5280 provides, uses, and updates much of the partition control information 
during program execution. However, the assembler initializes certain control areas 
during assembly, using the following control statements. This control information 
is used by the 5280, but it is not changed during program execution. 

The .START control statement is mandatory for every program, and the .KBCRT 
statement is mandatory for every program that uses keyboard/display I/O. The 
.EDITC statement is optional. 



.START Control Statement 



.START [ENTRY= 
MCHK= 



PNAM= OPTION= ORG= 
TMSL= RGLT=] ; 



The mandatory .START control statement must be the first control statement of 
every program. It specifies program name, origin, error routines, register usage 
limits, and time slice factor. 



Parameter 
Name 



Description 



ENTRY Entry point; the label of the instruction to be executed first. 

If omitted, it defaults to the first executable instruction 
encountered. 



PNAM 



Program name; 8-character field of alphabetic or numeric 
characters, enclosed in single quotes. The first character must 
be alphabetic. It defaults to PROGRAM. 



This name is printed in the listing header and included in the 
object code. Do not specify any unprintable code for this 
parameter. 

OPTION Option; informs the assembler whether the code being 

assembled is a main program (MAIN) or a separately assembled 
subroutine (SUB). It defaults to MAIN. 



ORG 



Origin; mandatory with parameter OPTION=SUB, to assemble 
a transient overlay. It specifies the actual location (relative to 
start of partition) to place the first instruction of executable 
code. Control statements preceding it are used to define shared 
labels but do not produce object code. Given in decimal or hex, 
ORG does not have to be a 256-byte boundary unless you are 
writing a partial overlay. 



MCHK 



Main program check errors; the label of the routine that has 
been coded to handle program errors. If omitted, the program 
is terminated if a program check error occurs. If you use the 
common function from the common area, specify the name 
CFPGMCHK, and include this name in an .XTRN control state- 
ment. See Program Check Errors in Chapter 6 for more informa- 
tion about main program check errors. 
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TMSL Time slice factor; a 1-byte field that specifies the maximum 

length of time the controller executes instructions within the 
current partition. Acceptable time limits are 4-60 milliseconds. 
Default is 12 milliseconds. 

RGLT Register limit; the number of 16-byte blocks you want to 

reserve to use as undeclared decimal or binary registers. The 
assembler skips over these 16-byte blocks during allocation of 
space. The default of four reserves the first four decimal 
registers, which includes all indicators, or the first 32 binary 
registers. 

Note: You do not have to reserve registers that you declare and label with a .DC, 
.DCLBR, or .DCLDR control statement. Reserve only the registers you use in 
.EQUATE control statements or the registers that you refer to by register number 
rather than by label in instructions. 

Examples: 

.START PNAM='PAYROL' 
ENTRY=BEGIN MCHK=MCHKER RGLT=8; 
.START; 



.KBCRT Control Statement 



/etab=1 



.KBCRT CRBA= \ELAB= 

[PRBA= TRAP= MODE= AFIL= NFIL= BKCK= 
FPLC= NMIN= HLIN= CNTR= FUNC= SCREEN= ] ; 

The .KBCRT statement specifies the location of the keyboard/display record 
buffer, the handling of keyboard/display error conditions, and the initialization of 
keyboard/display parameters. 

This control statement is mandatory in each main program. 

Parameter 

Name Description 

CRBA Current record buffer; the label assigned by a .DC statement for 

the I/O buffer that holds the current record. This parameter is 
mandatory. 

ELAB Exception label (either ELAB or ETAB must be specified); the 

label of a subroutine that handles all external status conditions. 

ETAB Exception table (either ELAB or ETAB must be specified); the 

label of a label table set up by a .LABTAB statement. Each 
entry in the label table is the address of a subroutine that 
handles one specific external status condition. 
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Parameter 

Mama 



Description 



PRBA 



Previous record buffer; the label assigned by a .DC statement for 
the I/O buffer that holds the previous record. This parameter 
is optional; if omitted, the 5280 sets the address for the PRBA 
to the CRBA address. 



TRAP 



MODE 



Trap; one or more numbers that represent certain functions 
normally handled by the 5280 that you want to process with 
your own subroutine. The number assignments are described in 
Appendix D under Keyboard Functions: EBCDIC Codes and 
Bit Numbers. 

The format of the input is TRAP=BITn, ... as follows: 

TRAP=BIT1,BIT5 

This code causes an external status condition to occur whenever 
a shifted Cmd key (BIT1) or an Ins key (BIT5) is pressed. 

Mode of entry; one of the following keywords to specify the 
mode of entry. 



Keyword 



Mode 



E 


Enter 


U 


Update 


V 


Verify 


D 


Display 


R 


Rerun 


Y 


Rerun/display 



AFIL 



NFIL 



BKCK 



FPLC 



See Modes of Entry in Chapter 2 for a description of the modes. 
Default is enter (E) mode. 

Alphabetic fill character; used for padding the left end of the 
right-adjust alphabetic fill fields. It defaults to blank (hex 40). 

Numeric fill character; used for filling the left end of right-adjust 
numeric fill fields. It defaults to zero (hex F0). 

Blank check character; the character that is not permitted in a 
blank checked field. It defaults to blank (hex 40). 

Fixed prompt location; indicates the row at which the fixed 
prompts occur on the screen. It defaults to row 2. 
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Parameter 
Name 



Description 



NMIN 



Normal display attribute; specified as a 1-byte constant, this 
entry determines the display attributes of fields not currently 
being processed; the attribute is in effect after the cursor exits 
the field. This parameter is normally omitted if you specify 
display attributes with the DSPLY parameter in your screen 
format control statements. Each bit specifies an attribute as 
follows: 



Bit 


Meaning If 1 


0-2 


Not assigned 


3 


Column separators displayed 


4 


Blink screen 


5 


Underline 


6 


High intensity 


7 


Reverse image 



The value for NMIN defaults to no high intensity. 



HLIN 



Display attributes; specified as a 1-byte hex constant, this entry 
determines the display attributes of the input field being 
processed; the attribute is in effect when the cursor moves to 
the first position of the field. This parameter is normally 
omitted if you specify display attributes with the DSPLY param- 
eter in your screen format control statements. Each bit 
specifies an attribute, as described for NMIN. The value for 
HLIN defaults to no highlighting. 



CNTR 



Current-position counter; the value of the internal register 
maintained by the system during formatted data entry. This 
value is displayed in columns 3-6 of the status line while an 
ENTR is being processed. The counter reflects one of the four 
values listed below. It defaults to K. 



K — current keying position of next keystroke to enter, relative 
to first position of the record. 

B — current position in the current record buffer, relative to the 
beginning of the buffer, where the next data character 
entered will be stored. 

C — current relative position of the cursor on the screen. 

F — current position within the current field, relative to the 
beginning of the field, where the next data character 
entered will be stored. 
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FUNC 



SCREEN 



Functions; one to three functions may be specified. If more than 
one is specified, separate them with a comma: 

A - auto duplicate/skip (see Auto Duplicate/Skip in Chapter 2). 

C — click software function keys. 

D — do not display fixed prompts on the screen. 

R — auto enter (see Auto Enter in Chapter 2). 

S — on keystroke error, determine if status line is currently dis- 
played. If not, display it and on error reset remove it from 
screen. (See Nondisplay of the Status Line in Chapter 2.) 

X — alternate record advance (see Alternate Record Advance in 
Chapter 2). 

Screen positions; the number of valid screen positions you wish to 
use in the current program. Valid entries are 480, 960, or 1920. 
Default is 480. 



Examples of input: 

.KBCRT CRBA=BUFR01 PRBA=BUFR02 ELAB=ERRTN AFIL=/ NFIL=X'40'; 

.KBCRT CRBA=BUFFX PRBA=BUFFY ETAB=RTN1 TRAP=BIT4,BIT8 
FPLC=4 CNTR=B FUNC=C, S, D; 

.EDITC Control Statement 

.EDITC [EDCUR= EDDEC= EDCOM= EDCNT=] ; 

The .EDITC control statement specifies the edit control characters. These characters 
are stored in the partition I/O control block and are used by other control 
statements. 



Parameter 
Name 

EDCUR 



EDDEC 



Description 

Edit currency sign; a 2-character field that specifies the currency 
symbol. It defaults to C '$'. 

Edit decimal character; a 1 -character field that separates the 
decimal portion of a number from the fraction. (It may be 
specified by X' ', but numerics or hex codes of hex F0 or 
greater must not be used.) It defaults to C'.\ 
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EDCOM Edit separator character; a 1 -character field that specifies the 

symbol used to separate groups of digits in an edited field. (It 
may also be specified as X' ', but numerics or hex codes of hex 
FO or greater must not be used.) It defaults to C',\ 

EDCNT Edit control count; a 1 -character field that specifies the number 

of digits between the occurrence of the edit separator character. 
It defaults to 3. 

Note: All characters must be enclosed in single quotes; they may also be specified 
as hex values. 

Example: 

.EDITC EDCUR=C'FR' EDDEC='/ EDCOM=X'40' ; 



DECLARE AND LABEL DATA AREAS 

Several different control statements assign labels to data areas, but each statement 
has a specific purpose. Use the following to help decide which control statement 
to use. 

• Use .DC to label and initialize one data area or register. 

• Use .DCLIND ot label up to 30 program indicators. 

• Use .DCLBR to label up to 30 uninitialized binary registers. 

• Use .DCLDR to label up to 30 uninitialized decimal registers. 

• Use .EQUATE to label initialized decimal or binary registers reserved by the 
RGLT parameter of the .START statement. You must specify register numbers. 

• Use .EQUATE to label system indicators. You must specify the indicator 
number. 

• Use .EQUATE to label a constant or expression. 

.DC Control Statement 

.DC [LABEL= TYPE= LEN= LEVL= LOC= 

BDY= PREFIX= DISP= INIT=] ; 

The .DC control statement specifies the allocation of data areas and storage 
structures, and assigns labels to decimal and binary registers. It also allows you to 
initialize the data set. 
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When declaring registers, it is important to deciare at i binary registers first. !f you 
declare decimal registers or storage areas before you declare all binary registers, you 
can fill the 256 bytes of the partition that contains the 128 two-byte binary 
registers. An attempt to declare a binary register beyond the binary register limit 
causes an error message to be written on the assembly listing. 

When using boundary alignment, remember that storage is assigned sequentially 
and any bytes which are unused between boundaries cannot be recovered. Declar- 
ing two 1-byte field, both on 256-byte boundaries, results in the loss of 255 bytes 
between the fields. These bytes cannot be recovered. Statistics are maintained to 
indicate how many bytes are lost due to boundary alignment. These statistics are 
written to the assembly listing. 

Note: Any unassigned storage byte is initialized to hex 00. 



Parameter 
Name 



Description 



LABEL Label; the name that refers to the storage area or register. This is 

an optional parameter. 

TYPE Type; specified as DEC (decimal register), BIN (binary register), 

STOR (storage area), PRMT (prompt) or MDUP (duplication). 
It defaults to STOR. 

The PRMT type allocates and initializes space for character 
strings that are used as either prompts or constant insert data 
during data entry. 

The MDUP parameter allocates space in main storage for duplica- 
tion during data entry. 

A table containing the addresses for these PRMT and MDUP areas 
is created and the address of the table is stored in the keyboard/ 
display I/O control block. A source statement refers to these 
areas by using the label, and the system finds the address for the 
area in this table. 



LEN 



Length; the length of the area being declared, specified in bytes. 
This is an optional parameter. If TYPE=DEC, it defaults to 16. 
If TYPE=BIN, it defaults to 2. For other types, the length 
defaults to the length of the IN IT field, or to 1 byte if no IN IT 

field is specified. 



A length of zero is valid for a declare that uses no space. For 
example, a .DC that specifies length, and specifies LOC (loca- 
tion) acts in the same way as the origin (ORG) parameters in the 
.START control statement. 

Note: The LEN specification overrides the actual length of an 
IN IT entry. If LEN is less than the number of bytes necessary 
for the IN IT data, some of the IN IT data is lost. 
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Parameter 
Name 



Description 



LEVL 



Level; the structure level of the area being declared. Variable 
leveling builds a storage structure if a level-1 declare is followed 
by one or more level-2 declares; the level-2 areas are overlaid into 
the level-1 area. The level-2 declare does not affect the current 
location counter. If the level-2 area extends beyond the level-1 
area an overflow condition message results. However, the over- 
flow message is suppressed if the preceding level-1 declare had the 
length specified as zero; this allows you to assign labels without 
advancing the current location counter. If omitted, it defaults to 
level-1. 



LOC 



Location; a number that specifies the relative location for the 
area being declared, or the label of a previously defined location. 
When LOC is specified, the assembler will reset its internal loca- 
tion counter. After processing a .DC statement with LOC speci- 
fied, the location counter will equal LOC + LEN. Subsequent 
storage will be assigned starting at this location. If this parameter 
is omitted, the area is declared at the next sequential location. 

Note: LOC cannot be specified with a LEVL=2 declare. 



BDY 



Boundary alignment; the type of boundary on which to locate 
the first byte of the data area. Specify a numeric value that is 
valid for the particular type of data area. See Main Storage 
Boundary Alignment in Chapter 1 for more information. An 
easy way to remember boundary alignment requirements is: 
an n-byte boundary is evenly divisible by n. For example, a 
binary register can begin on any boundary that is evenly divisible 
by 2, a decimal register can begin on any boundary that is 
evenly divisible by 16, and a buffer can begin on any boundary 
that is evenly divisible by 128. 



If BDY is omitted, the boundary defaults to the next sequential 
boundary that is appropriate for the specified TYPE. 



PREFIX 



DISP 



Note: BDY cannot be specified if LEVL=2 has been specified. 

Prefix; a 1 or 2 character prefix that may be added to a level-1 
declare. All level-2 declares may then be copied from a single 
statement to define an identical structure several times. The 
character or characters specified for the level-1 area attaches to 
the level-2 labels as a prefix to prevent duplicate labels. This is 
an optional parameter valid only for LEVL=1 declares. 

Displacement; used only with LEVL=2 declares. Displacement 
is the number of bytes into the last level-1 area where this level-2 
area is defined. If omitted, the subfields are contiguous. 
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Parameter 

Name Description 

INIT Initialization; numeric or character data may be used to initialize 

the data area. The INIT parameter must be complete on a single 
line. 

Decimal data is specified as decimal numbers with no quotes. 

Character data must be enclosed in single quotes. It may be 
preceded by an uppercase C, or the C may be omitted. 

Note: If you are sending data to a printer, do not use character 
data with an EBCDIC representation of lower than hex 40. If 
you must send data with an EBCDIC lower than hex 40 to the 
printer, specify it as hex data. 

Binary data must be enclosed in single quotes and must be pre- 
ceded by an uppercase B. Binary data must be at least 8 digits 
in length, and the total number of binary digits must be a multiple 
of 8. 

Hex data must be enclosed in single quotes and must be preceded 
by an uppercase X. Hex data must be at least two hex digits in 
length, and the total number of hex digits must be a multiple of 
2. 

If a constant has been equated with a label, the label may be used 
for the INIT parameter, and the equated constant is placed into 
the data area. 

The address of a data area may be initialized into storage by 
coding: 

INIT=ADDR (label [± constant] ); 

where label is the label of the data area. 

Initialization occurs as illustrated in Figure 3-2. 

Note: Initialization of a decimal register with an equated constant 
fills the register with binary data. 
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Decimal 


Binary 


Stor, MDUP, and 




Registers 


Registers 


PRMT Areas 


Characters 


Right adjust. 


Left adjust, 


Left adjust. 




pad with blanks. 


pad with blanks. 


pad with blanks. 


Hex 


Right adjust, 


Right adjust. 


Right adjust, 




pad with zeros. 


pad with zeros. 


pad with zeros. 


Binary 


Right adjust. 


Right adjust. 


Right adjust. 




pad with zeros. 


pad with zeros. 


pad with zeros. 


+lnteger 


Right adjust. 


Right adjust, 


Right adjust, 




pad with zeros. 


pad with zeros, 


pad with zeros, 




Zone on low- 


convert to 


convert to 




order byte is 


binary. 


binary. 




XT'; leave as 








EBCDIC. 






-Integer 


Right adjust, 
pad with zeros. 
Zone on low- 
order byte is 
X'D'; leave as 
EBCDIC. 


Error. 


Error. 



Figure 3-2. Initialization of Data Areas 



The following examples illustrate how the assembler allocates data areas as it 
assembles the .DC control statements. 

Figure 3-3 represents an area of storage in a partition. The assembler has assigned the 
2 bytes of BR 120 and the high-order byte of BR 121 to a previously allocated data 
area. The next sequential byte that is available to the assembler is the low-order byte 
of BR121. The bytes of BR127 are the last bytes that can be allocated as a binary 
register. 



Decimal 
Boundaries 




Previously 
Assigned Bytes 



Next Available Binary 

Byte Boundaries 



1 



3 4 



789ABCD T E 



BR120 


BR121 


BR122 


BR123 


BR124 


BR125 


BR126 


BR127 



















































R15 
R16 
R17 
R18 



Figure 3-3. Storage Bytes 
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Hgure 3-4 illustrates how the assembler aiiocates data areas to the bytes represented 
in Figure 3-3. according to the .DC statements in Example 1. 

Example 1: Boundary Alignment and Initialization; TYPE, BDY, INIT 



.DC LABEL=EMP#TYPE=BIN INIT=1; 

* Assembler skips to next binary 

* boundary. Integer init for 

* BIN type right-adjusts. 

.DC LABEL=KEY1 TYPE=BIN LEN=4 INIT='ABC; 

* Character init left-adjusts. 

.DC LABEL=DEPT#LEN=3 INIT=2; 

* Type defaults to STOR, integer 

* init right-adjusts. 

.DC LABEL=EMPNAM TYPE=DEC INIT='A'; uses R16. 

* Character init for DEC type right-adjusts. 

.DC LABEL=YRTODAT$ TYPE=DEC INIT=6; uses R17. 

* Integer init for DEC type right-adjusts. 
.DC LABEL=PRMT1 TYPE=PRMT LEN=13 

IN IT='PR ESS RESET'; 

* Init for PRMT type left-adjusts. 

.DC LABEL=TAGS TYPE=BIN; error example 
*** Error message, cannot declare a 

* binary register beyond relative 
*** address X"IFE'. 

.DC LABEL=BUFFR LEN=128 BDY=128; 

* Buffers must be on a 128-byte boundary. 
.DC LABEL=HOURSTYPE=STOR LEN=3; 

* All uninitialized bytes are filled 

* with X'OO' rather than zero (X'FO') 

* or blank (X'40') 



EMP# KEY1 DEPT# 




HRS 



*Next Available Byte 



JX j = byte lost due to boundary alignment 
Figure 3-4. Storage Initialization for Example 1 
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Figure 3-5 represents an area of overlapped storage in a partition. The assembler 
has assigned the 2 bytes of BR96, the 2 bytes of BR97, and the high-order byte of 
BR98 to a previously allocated data area. The next sequential byte that is available 
to the assembler is the low-order byte of BR98. 



Previously 
Assigned Bytes 



Next Available Byte 



1C 
1D 
1E 
1F 



BR 


96 






BR 


98 






BR 


100 






BR 


102 







































































































R12 
R13 
R14 
R15 



Figure 3-5. Storage Bytes 
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Example 2 shows .DC statements that use the LtVL and PKthiX parameters and 
illustrates how the assembler allocates the bytes in Figure 3-5. 

Example 2: Storage Structures; LEVL, PREFIX 



.DC LABEL-AREAB LEVL=1 TYPE=BIN 
BDY=2 LEN=4 PREFIX-B; 

.DC LABEL=A1 LEVL=2 INIT=1; 

.DC LABEL=A2 LEVL=2 INIT=2; 

.DC LABEL=A3 LEVL=2 INIT=3; 

.DC LABEL=A4 LEVL=2 INIT=4; 

* DISP may be omitted for contiguous fields. 

* The level 1 area is referred to as AREAB; 

* the level 2 areas as BA1, BA2, BA3, BA4. 



Double Binary Register 



01020304 



]R 



12 



BA1 



BA2- 



BA3- 



BA4- 



The following shows how to use PREFIX 
to define two decimal registers and 
overlay them with eight binary registers 
each. The coding for the AREADX registers 
can be copied for the AREADY registers. 



I 

.DC LABEL=AREADX LEVL=1 TYPE=DEC 
BDY=16 LEN=16 PREFIX=DX; 
.DC LABEL=A1 LEVL=2 TYPE=BIN INIT=11 
.DC LABEL=A2 LEVL=2 TYPE=BIN INIT=22 
.DC LABEL=A3 LEVL=2 TYPE=BIN INIT=33 
.DC LABEL=A4 LEVL=2 TYPE=BIN INIT=44 
.DC LABEL=A5 LEVL=2 TYPE=BIN LEN=4 
INIT=55; Double Binary Register. 



000B 0016 0021 



002C 



0000 



-DXA1* 



•DXA2^ 



DXA3' 
DXA4-I 



.DC LABEL=A6 LEVL=2 TYPE=BIN LEN=4 
INIT='X'; Double Binary Register. 



DXA5 J 



0037 



E7404040 



R13 



The level 1 decimal register is referred to as AREADX, 
the level 2 binary registers as DXA1, DXA2, and so on. 



DXA6J 



.DC LABEL=AREADY TYPE=DEC PREFIX=DY; 

.DC LABEL=A1 LEVL=2 TYPE=BIN INIT=11 

.DC LABEL=A2 LEVL=2 TYPE=BIN INIT=22 

.DC LABEL=A3 LEVL=2 TYPE=BIN INIT=33 

.DC LABEL=A4 LEVL=2 TYPE=BIN INIT=44 

.DC LABEL=A5 LEVL=2 TYPE=BIN INIT=55 LEN=4; 

* Change INITforDYA6. 

.DC LABEL=A6 LEVL=2 TYPE=BIN INIT='Y' LEN=4; 



000B 0016 0021 



002C 



0000 



0037 



E8404040 R14 



-DYA1-* * 

DYA2 J 

DYA3 



J 



■DYA4- 



■DYA5 J 



DYA6 J 
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.DCLBR Control Statement 

.DCLBR LABEL= [,...] ; 

The .DCLBR control statement declares and labels one or more binary registers with 
a single statement. It may be used only for declaring registers which are not initial- 
ized. The registers will contain hex 00s. You do not specify a register number. The 
system assigns the labels to the next available binary registers. You can declare up 
to a maximum of 30 binary registers with each .DCLBR control statement. 

Parameter 

Name Description 

LABEL Label; lists the names of the binary registers, each name separated 

by a comma. 

Example: 

.DCLBR LABEL=PATRN,REGB1,REGB2,CHK4; 

.DCLDR Control Statement 

.DCLDR LABEL= [,...] ; 

The .DCLDR statement declares and labels one or more decimal registers with a 
single statement. It may be used only for declaring registers which are not initial- 
ized. The decimal registers will contain hex 00s. You do not specify a register 
number. The system assigns the labels to the next available decimal registers. You 
can declare up to a maximum of 30 decimal registers with each .DCLDR control 
statement. 

Parameter 

Name Description 

LABEL Label; lists the names of the decimal registers; each name separ- 

ated by a comma. 

Example: 

.DCLDR LABEL=PAYMT,BAL1,RATE f EXCH,TOTAL,SEND; 

.DCLIND Control Statement 

.DCLIND LABEL= [ ] ; 

The DCLIND statement is used to declare and label one or more user indicators 
(I0-I99) with a single statement. You do not specify indicator numbers. The 
system assigns the labels to available user indicators. You can declare up to a 
maximum of 30 indicators with each .DCLIND control statement. 
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Parameter 
Name 

LABEL 



Description 

Label; lists the names you assign to the indicators, each name 
separated by a comma. 



Example: 

.DCLIND LABEL=LABL1 ,LABL2,LABL3,LABL4,LABL6; 



.EQUATE Control Statement 

.EQUATE [REG= 
LABEL= 



NUMB= 
EXPR=] 



IND= 



This control statement equates labels to registers, constants, indicators (I0-I99), or 
the value of an expression. You must specify the register or indicator number 
along with the label you wish to use. You may equate up to 30 register or indicator 
labels with each .EQUATE control statement, or one arithmetic expression. This 
statement is useful to label system registers and indicators. It is the only means to 
specify an arithmetic expression in the control statements. 

A labeled expression may be used in subsequent instructions as a constant or a stor- 
age specification. If it is used as a storage label, the result of the expression must be 
a valid storage address or an error results. Otherwise, it may be used in any 
instruction that requires immediate data, such as a length or displacement 
specification. 

Note: Only reserved registers and self-defining terms may be used in the equate 
statement. EQUATE does not check to see if the specified register already has a 
label. The current EQUATE label overrides any previously assigned labels. 



Parameter 
Name 

REG 



NUMB 



IND 



LABEL 



Description 

Registers; ordered pairs of a register (binary or decimal) followed 
by a label. Separate the register and label with a comma, enclose 
each pair in parentheses, and separate the pairs with a comma. 

Numbers; ordered pairs of a constant and a label. Separate the 
constant and label with a comma, enclose each pair in parentheses, 
and separate the pairs with a comma. 

Ordered pairs of an indicator and a label. Separate the indicator 
and label with a comma, enclose each pair in parentheses, and 
separate pairs with a comma. 

Expression label; used only with the EXPR parameter, it speci- 
fies the name you want to assign to the result of the expression. 
You may specify this label as a parameter in a subsequent 
instruction. Do not use this label in an instruction that occurs 
prior to this .EQUATE statement in the source program. 
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Parameter 
Name 

EXPR 



Description 

Expression; an expression of up to eight terms, separated by 
arithmetic symbols. The following symbols may be used: 

Symbol Meaning 

+ Add 

Subtract 
* Multiply 

/ Divide 

The arithmetic operations are performed with 2-byte integers; 
fractions and overflows are ignored. The arithmetic operations 
are performed from left to right, although the multiply and 
divide operations are performed before the add and subtract 
operations. Do not include parentheses in the expression. 



The terms may be any type of previously defined labels. 
Examples: 

.EQUATE REG=(BR5,XREG),(BR6,YREG) NUMB=(22,INDEX) IND=I7,SWITCH); 
.EQUATE REG=(R4,BUF7),(R5,BUF8),(R8,BUF9); 

SET UP AND INITIALIZE DEVICE CONTROL BLOCKS 

One device I/O control block (IOB) must be set up and initialized for each data set 
your program uses. Use the .COMM statement for a data set that uses the com- 
munications line. Use a .DATASET control statement for a data set that uses a 
printer or diskette. 

.COMM Control Statement 









TELAB= > I 

\etab=j 




COMM 


[CAM=] 


DSN= 


TYPE= 




[RECL= 


BSIZ= 


LBUF= 


LABEL 




HTAB= 


VTAB=] ; 







Parameters unique to BSC: 
[SIDL= SIDH= RECFM=] 
Parameter unique to SNA: 
PLUNAME= 
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The .COMM statement specifies the characteristics of the communications line for 
the current communications session. It also sets up the device I/O control block 
in the current partition. The IBM 5280 Communications Utilities Reference 
Manual, SC34-0247, describes the functions of the SNA and the BSC versions of the 
communications access method, how to determine which version to use, and how 
to load the access method. 

Although most .COMM parameters apply to both the BSC and SNA versions of the 
communication access method, some parameters are unique to one of the versions. 



Parameter 
Name 

CAM 



Description 

Communications access method; defines the CAM as either BSC 
or SNA. If omitted, it defaults to BSC. 



DSN 



ETAB 



ELAB 



Data-set number; a decimal number from 1 to 15 that identifies 
the communications device I/O control block. This is a manda- 
tory parameter. 

Error table label (either ETAB or ELAB must be specified); the 
label of the label table set up by a .LABTAB statement. Each 
entry in the label table is the address of a subroutine that handles 
one specific external status condition. 

Error subroutine label (either ETAB or ELAB must be specified); 
the label of the subroutine that handles all external status 
conditions. 



TYPE 



Type; specifies attributes of the data to be processed. One entry, 
file type, is mandatory. For BSC, one optional attribute key- 
word may follow the type. Separate the type and attribute with 
a comma. 



File Type, First Position 

SR Sequential read, records can be received only. 

SW Sequential write; records can be transmitted but not 
received. 

COM General communications; sequential read, sequential write, 
or sequential read and write. (BSC only) 

CN Conversational; transmit one message, receive n messages. 

Optional Attributes, Second Position (for BSC only) 

CB Compressed blanks, to expand blank-compressed data that 
is received. (The 5280 does not transmit compressed data.) 

BT Blank Truncation, to truncate trailing blanks in data to be 
transmitted and to insert trailing blanks in data that is 
received. 
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Parameter 
Name 



Description 



RECL 



Record length; length (1-512) of the logical records. Although 
this is an optional parameter in the .COMM statement, the RECL 
field of the I/O control block must contain a valid RECL value 
when the TIN IT instruction is issued. 



If RECL is not coded on the .COMM statement, you must 
initialize the record size field of the communications I/O control 
block as appropriate. 



BSIZ 



Block size; maximum block size of the data to be transmitted. 
Include this parameter if you specify FB (fixed length and 
blocked) or VB (variable length and blocked) for the RECFM 
(record format) parameter. It defaults to 256. 



LBUF 



Logical buffer; the label assigned to the buffer by a .DC control 
statement. 



LABEL Label; a name to identify the I/O control block for communica- 

tions. If omitted, the I/O control block is assumed to be not 
labeled. 



HTAB 



Horizontal tab table; the label of a horizontal tab table that 
specifies the printer tab settings. 



VTAB 



Vertical tab table; the label of a vertical tab table that specifies 
printer tab settings. 



Parameters that are unique to BSC 



SIDL 



Security ID local; character string to be sent to the host from a 
local terminal on switched lines. If specified, this ID will override 
the value in the communications control block, which is specified 
during execution of the communications configuration utility. 
If neither security ID is specified, no local ID will be sent to this 
host. 



SIDH 



Security ID host; a character string ID sent to local terminals 
from the host on switched lines. If specified, this ID will over- 
ride the value in the communications control block, which is 
specified during execution of the communications configuration 
utility. If neither security ID is specified, no ID will be checked. 
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Parameter 



RECFM 



Record format; describes the record to be processed, using one 
of the following keywords. If omitted, it defaults to fixed length 
(F). 

Keyword Meaning 

F Fixed length 

V Variable length 

FB Fixed length and blocked 

VB Variable length and blocked 



Parameters that are unique to SNA/SDLC 

PLUNAME Primary logical unit name; a character string enclosed in single 

quotes. This is an optional parameter. If specified, it will be 
checked by the communications access method during 
initialization. 

Examples: 

.COMM CAM=BSC DSN=2 TYPE=COM,BT LABEL=COMIOB ETAB=TABL01; 

.COMM CAM=SNA DSN=3 TYPE=SW, LABEL=SNAIOB ELAB=ERRTN 
PLUNAME=LOG01; 

.DATASET Control Statement 

|etab=0 
.dataset name= dsn= type= \elab=/ 

(DEVID=1 

VDEV= J PB1= [PB2= RECL= 

BSIZ= LBUF= LABEL= TRANS= DFLG=] ; 

Parameters unique to SCS conversion data sets: 

PGSIZ= LINSZ= LSTLN= [SGEA=] 

Parameters unique to keyed data sets: 

KPOS= KLEN= TLOC= DLTA= 

The .DATASET control statement specifies the characteristics of a data set to be 
referred to by the program. It generates the device I/O control block which 
describes the characteristics of the data set to the I/O device. 
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Parameter 
Name 



Description 



NAME 



DSN 



ETAB 



ELAB 



Data set name; mandatory for diskette, optional for printer. 
Enter the label, which was assigned by a .DC control statement, 
of the area where the data set name is stored. The data set name 
is described in Chapter 4 under Partition Load and Exit Instruc- 
tions. Do not enter the data set name here. For I exchange data 
sets, the data set name must be blank, and the period that 
follows the volume identifier is optional. 

Data set number; a decimal number from 1 to 15 which identifies 
the data set being described. This is a mandatory parameter. 

Error table label (either ETAB or ELAB must be specified); the 
label of the table set up by a .LABTAB statement. Each entry 
in the label table is the address of a subroutine that handles one 
specific external status condition. 

Error subroutine label (either ETAB or ELAB must be specified); 
the label of the subroutine that handles all external status 
conditions. 



DEV 



Device address (either DEV or DEVID must be specified); the 
physical address of the device to which this data set information 
is directed. A physical address is expressed as four hexadecimal 
digits. 



DEVID 



Device identifier (either DEV or DEVID must be specified); the 
2-character logical device identifier that identifies the logical 
device to which this data set information is directed. (See Logical 
Device Identifiers in Chapter 1.) 



TYPE 



Type; specifies the data set type, and may specify other attributes. 
The first positional entry of this parameter (type) is mandatory. 
It may be followed by as many optional second position entries as 
needed. See Diskette Data Management in Chapter 2 for more 
information about the data set types and attributes. 



If an optional attribute is included after the type specification, 
separate the type and the optional attribute with a comma. 

Data Set Type, Mandatory, First Position 

SR Sequential read; records can be read sequentially, or 

directly by relative record number. Records cannot 
be written. 

SW Sequential write; records can be written but not read. 

The records are accessed starting at EOD (or, if an offset 
is specified, at EOD plus the offset) as specified by the 
HDR1 label on the diskette. 

This is the only valid type for printer data sets. 
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Parameter 



TYPE SU Sequential update; records can be read and written 

(continued) sequentially, or directly by relative record number. 

Records can be added at EOD. 

KR Key indexed read; key indexed records can be read 

only, sequentially or directly by key. 

KRN Key indexed read, no table build; records can be read 

only sequentially or directly by key, and you build your 
own index table. 

KU Key indexed update; key indexed records can be read, 

updated, and added, sequentially or directly by key. 

KUN Key indexed update, no table build; records can be 
read, updated, or added sequentially or directly by 
key, and you build your own index table. 

I Label update; data set labels can be read and updated. 

The diskette index cylinder is accessed at track 0, 
sector 1. Otherwise, the operation is as for sequential 
update (SU). 

INI Initialize diskette. 

Optional Attributes, Second Position 

SHR Shared read; shares the data set with other jobs that 
specify shared read. 

SHW Shared write; for diskette, shares the data set with other 
jobs that specify shared write. For printer, shares the 
same printer with other data sets that specify shared 
write. 

SHRW Shared read/write; shares the data set with any other 
jobs that specify shared attributes. The data set can be 
read and written to if the other job specifies SHRW; the 
data set is write-only if the other job specifies SHW, or 
is read-only if the other job specifies SHR. 

EW Early write; for diskette, this option allows logical 

records to be updated; then the entire physical buffer 
is written to the diskette immediately, without waiting 
until a full physical buffer has been updated. 

For printer, the data in one logical record is sent to the 
printer and printed immediately, without blocking. 
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Parameter 
Name 

TYPE 
(continued) 



Description 

QR Quick release; like EW, but affects only read operations. 

The entire physical buffer is freed upon completion of 
the read operation. This releases the logical records in 
the buffer to be used by other jobs. Do not use QR 
when writing with pointer I/O. 

SCS Standard character string; indicates SCS conversion. 

ERS Erase; existing data is erased at open. You may not 
specify ERS for a shared file. You may specify ERS 
for a label update data set to erase the label area. 

PTR Pointer I/O; indicates pointer I/O is being done. (See 
Pointer I/O in Chapter 2.) 



EXTC Overlapped extent check; during an open or allocate 
operation, checks all extents of all other data sets to 
ensure that they do not overlap this data set. 

CB Compression; using IGS to eliminate blanks on stored 

record. 

CM Compression; as in MRJE. 

CS Compression; using SNA control bytes. 

TLBL Translate label; translation applies to diskette HDR1 
label as well as to the data. 

ORD Ordered; may be specified only with a keyed data set to 
indicate that key indexed records are in ascending key 
sequence. 

Note: If you specify a keyed data set and include attributes for another file type, 
the system assumes a keyed data set. 



PB1 



Physical buffer 1; the label assigned to the buffer by a .DC 
control statement. This parameter is mandatory. 

Note: Physical buffer lengths must begin on a 128-byte 
boundary, and must be a multiple of 128, regardless of block 
size or record format. This is because buffer size is specified 
in the I/O control block as a multiple of 128. For data sets 
requesting conversion to SCS (standard character string) data sets, 
the maximum size is 256 bytes. 
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Parameter 



PB2 



Lsesuiipuun 



Physical buffer 2; the label assigned by the .DC statement that set 
up the buffer. This buffer is used for double buffering. This 
parameter is optional. 



RECL 



Record length; the length of the logical record to be handled. This 
parameter is required for printer output and for SCS conversion 
data sets; it is optional for diskette I/O. If this parameter is 
omitted for diskette, the value from the data set label is used. If 
this parameter is specified for diskette, it must match the value 
in the HDR1 label. 



BSIZ 



Block size; the length of the block to be handled. This parameter 
is required for SCS conversion data sets; it is optional for printer 
and diskette I/O. If this parameter is omitted for diskette, the 
value from the data set label is used. If this parameter is speci- 
fied for diskette, it must match the value in the HDR1 label. 



LBUF 



LABEL 



Logical buffer; the label assigned to the buffer by a .DC control 
statement. This parameter should be omitted when using pointer 
I/O (locate mode). If omitted, the logical buffer address is 
assumed to be the same as the physical buffer (PB1) address, and 
the pointer I/O flag in the data set IOB is set on. 

Label; the name you wish to assign to the device I/O control 
block for this data set. This is an optional parameter. If this 
parameter is omitted, the I/O control block is assumed to be not 
labeled. 



TRANS Translate tables label; the label specified in a .TABLE control 

statement that describes a pair of 256-byte tables used for code 
translation (substitution). The first table is used for input trans- 
lation, and the second for output. The content of each table is 
identical to tables used with the equivalent instruction TRANS. 
This optional parameter is used only when translation is desired. 



DFLG 



Delete flag; the character that is placed in the HDR1 label during 
an allocate, which will be used to indicate a deleted record. This 
character is placed in the last byte of a record that is operated 
upon by a WRTS (write delete) instruction. A deleted record is 
skipped on a READ (sequential read) and overwritten on a WRTI 
(write insert) or WRT (write current) instruction. If a delete 
character is specified in the HDR1 label, the HDR1 character 
overrides the DFLG parameter (even if the HDR1 character is a 
blank). 

This parameter may be used only for an I or E exchange data set. 



74 



Parameter 
Name 



Description 



These parameters are only for standard character string conversion of printer output 
(when the second TYPE entry is SCS). These parameters are not allowed for keyed 
data sets. 



PGSIZ 



Page size; the number of lines per page. This parameter is manda- 
tory with SCS conversion. 



LINSZ 



Line width; number of characters per line. This parameter is 
mandatory with SCS conversion. 



LSTLN 



Last line; line number of the last line to print. This parameter is 
mandatory with SCS conversion. 



SGEA 



Set graphics error action; the symbol to represent unprintable 
values, in the form (character, code). The default is (—,1), which 
prints one dash and continues printing. The only other valid 
entry is (—,3), which prints one dash and stops printing at the 
end of the line. 



The following parameters are only for keyed files. 



KPOS 



KLEN 



Key position; the position of the key in the record (first column 
= 1). This parameter is required for keyed data sets. 

Key length; the number of positions in the key. This parameter 
is mandatory for keyed data sets. 



TLOC 



Table location; the label of the table you have set up for the file 
index parameters. Use the label assigned by the .TABLE state- 
ment. This parameter is mandatory for keyed data sets, whether 
you build your own index table or let the 5280 automatically 
build the table. 



DLTA 



Delta of index table; the number of logical records between each 
index entry. This parameter is required for KRN and KUN data 
sets. If this parameter is omitted, the delta is calculated from 
data set length and table length. 



Examples: 

.DATASET NAME=TXDATA DSN=3 RECL=80 BSIZ=3120 LBUF=MYAREA 
PB1=WKBUF TYPE=KR,SHR ELAB=ERORTN2 DEVID=D1 
KPOS=12 KLEN=8 TLOC=KEYTBL; 
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SET UP AND LABEL TABLES 

The table control statements organize and assign labels to tables, but do not 
initialize storage. The .LABTAB control statement organizes the labels of sub- 
routines, which are used in indexed subroutine calls. The .TABLE statement organ- 
izes data areas initialized by .DC control statements. These data areas are used by 
the TABLE instructions. The .SYSTAB statement assigns labels and determines 
locations of the system tables, which are set up and used by the 5280. 



.TABLE Control Statement 

TABLE LABEL= DCLBL= ARGL= /MAXM= ^ [BYPASS] ; 



\ ENTRIES 



.} 



A table consists of a group of contiguous fields of the same length. The content 
of each field is the table argument, and the position of the field within the table 
is the index of the field. The index of the first table field is one. 

Table arguments may be in an ordered or unordered sequence. An ordered table 
has arguments arranged in ascending or descending order according to the standard 
EBCDIC collating sequence. 

The .TABLE control statements build a system table that will be referred to each 
time a table instruction is encountered during program execution. The system 
table contains all the parameters of each table you use in your program. You must 
include one .TABLE statement for each of your tables. These .TABLE statements 
must be consecutive. The address of the system table is stored in the partition I/O 
control block. When a table instruction refers to the label of a table, the address 
and all the parameters of that table are provided by the system table. 

Space for the tables you use in your program must be allocated by .DC statements. 



Parameter 
Name 

LABEL 



Description 

Label; the label of the table this statement defines. 



DCLBL DC label; the LABEL parameter from the declare .DC statement 

that assigned space for this table. 



ARGL 
MAXM 



Argument length; the number of bytes in the table argument. 

Maximum; the maximum number of entries allowed in this table. 
Either the MAXM or ENTRIES parameter must be included for 
fixed-length tables. For variable-length tables both MAXM and 
ENTRIES are used. 
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Parameter 
Name 



Description 



ENTRIES Entries; the number of entries in the table that have been 

initialized. In variable length tables this may not be the same as 
the maximum number of entries. If MAXM is not included, the 
maximum number of entries is equal to the number specified by 
ENTRIES, and a fully initialized table is assumed. If MAXM is 
included and ENTRIES is omitted, the table is a fixed-length table 
that is not initialized. 



BYPAS 



Bypass; the number of bytes per table entry that are not part of 
the table argument. This may be used in conjunction with LEVL 
and DISP on the .DC statement to define a two-dimensional 
table. 



Examples: In Figure 3-6, the following .DC statements allocate space for two tables. 
Then the .TABLE statements define the parameters for the two tables. The param- 
eters are stored in the system table, which the 5280 builds in another area of stor- 
age, and refers to during program execution. 

.DC LABEL=TAB2 LEN=400; allocate level-1 space for the table. 
.DC LABEL=DAT21 LEN=8 DISP=0 LEVL=2 INIT= J 11111111'; 
.DC LABEL=DAT22 LEN=2 DISP=8 LEVL=2 INIT='AA'; 
.DC LABEL=DAT23 LEN=8 DISP=10 LEVL=2 INIT='22222222'; 
.DC LABEL=DAT24 LEN=2 DISP=18 LEVL=2 INIT='BB'; 
*TABLE statement defining a table with 8-byte arguments. 

TABLE LABEL=NUMBERS DCLBL=DAT21 ARGL=8 MAXM=40 BYPAS=2 ENTRIES=2; 
*TABLE statement defining a table with 2-byte arguments. 

TABLE LABEL=LETTERS DCLBL=DAT22 ARGL=2 MAXM=40 BYPAS=8 ENTRIES=2; 



TAB2 



11111111AA22222222BB 



NUMBERS 
11111111 -J 



22222222 *■ 



LETTERS 

AA 

BB 



Figure 3-6. Data Tables 
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.LABTAB Control Statement 

.LABTAB LABEL= ENTRY= 

The .LABTAB control statement specifies a group of subroutine or statement labels 
and creates a label table of the addresses of these subroutines or statements. This 
table of addresses is used to make indexed branches through a table as with the 
GOTAB and CALLTB instructions. You can specify up to a total of 30 ENTRY 
labels for each .LABTAB control statement. 

Note: The .LABTAB tables are not used with the TABLE instructions that are 
described in Chapter 4. 



Parameter 
Name 

LABEL 



Description 

Label; the name you wish to assign to the table of addresses being 
created. This parameter is mandatory unless you are building a 
label table of more than 30 entries. In that case, include the 
LABEL parameter with the .LABTAB statement that specifies the 
first 30 entries, and follow it with one or more .LABTAB state- 
ments with the LABEL omitted. 



ENTRY Label of a subroutine or statement whose address is to be stored 

in the label table. At least one but no more than 30 labels must 
be entered. If two or more labels are entered, separate them with 
a comma. The first entry is at index in the label table, the 
second entry is at index 1, and so on. 

Examples: 

.LABTAB LABEL=MYTABLE ENTRY=EOF,EOJ,EOT; 



Index Entry 
^ 1....: . 

6 EOF address 

MYTABLE I 1 EO J address 

2 EOT address 



{ 



Figure 3-7. Label Table 
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.SYSTAB Control Statement 

.SYSTAB [PRMT=FMT=MDUP=SFMT=STACK=] ; 

The .SYSTAB control statement allows you to assign labels and determine the loca- 
tion of the system control tables and the subroutine stack. When the assembler 
encounters a .SYSTAB statement, the indicated control tables and subroutine 
stack are assigned locations at the address in the current location counter. You 
may reserve space for the entries into the area by specifying the number of entries 
to be placed into the control table or subroutine stack. If you specify the number 
of entries you may omit the label; the space for the specified number of entries will 
be reserved in the table, and the table will be assigned the location in the current 
location counter. If you omit the number of entries, you must specify the label; 
the assembler will make the appropriate number of entries in the table but will 
reserve no extra space for additional entries. See Chapter 2 for more information 
about these control areas, under System Tables and The Partition Subroutine 
Stack. 

If the .SYSTAB statement is not included, any necessary control tables are created 
and placed into the partition storage when the .END statement is encountered, 
and the address of each table is stored into an assigned location in the partition 
I/O control block. The control tables are assigned no labels; if you wish to refer to 
an entry in a control table, you must read the address from the appropriate area in 
the partition control area. 

On the assembly listing, all system tables and the subroutine stack are written 
immediately following the .END statement. This is true regardless of their actual 
addresses. No system tables or subroutine stack is written on the listing with the 
.SYSTAB control statement. 

If the .SYSTAB statement is used for a separately assembled subroutine 
(OPTION=SUB in the .START statement), you must initialize the control table 
addresses in the partition control area at execution time. The location of each table 
address is included in the following parameters. 

Parameter 

Name Description 

PRMT Prompt control table label; specifies the name you wish to assign 

to the prompt control table. You may optionally follow the label 
with a comma and the number of entries to be placed into the table. 

The number specified must include one extra entry to be used for 
the first table entry, which the assembler always creates and fills 
with zeros; specify the number of your prompts plus one. 

Each entry in the table is 2 bytes long and, except for the first 
entry, contains the address of a prompt created by a .DC 
TYPE=PRMT control statement. You must specify the label, 
or the number of entries, or both. The address of the prompt 
table is placed into hex 8D-8E of the partition control area. 



Assembler Language Control Statements 79 



Parameter 
Name 



Description 



FMT 



Format control table label; specifies the name you wish to assign 
to the format control table. You may optionally follow the 
label with a comma and the number of entries to be placed into 
the table. 



MDUP 



SFMT 



The number specified must include one extra entry to be used 
for the last entry, which the assembler creates and fills with hex 
Fs; specify the number of your edit formats plus one. The 
assembler always creates this system table and the entry filled 
with Fs whether or not you write any edit formats. 

Each table entry is 2 bytes long, and contains the address of a 
format created by a .FMTST control statement and its associated 
.FMTFLD statements. The address of the table is placed into hex 
24-25 of the partition control area. You must specify the label, 
or the number of entries, or both. 

Main storage duplication control table; specifies the name you 
wish to assign to the MDUP control table. You may optionally 
follow the label with a comma and the number of entries to be 
placed in the table. 

Each table entry is 2 bytes long, and contains the address of a 
MDUP area created by a DC TYPE=MDUP control statement. 
The address of the table is placed into hex B6-B7 of the partition 
control area. You must specify the label, or the number of 
entries, or both. 

Screen format control table label; assigns a name to the SFMT 
control table. You may optionally follow the label with a comma 
and the number of entries to be placed in the table. 

Each table entry is 2 bytes long and contains the address of a 
screen format. Each screen format is created by a .SFMTST state- 
ment and its associated .SFMT statements up to and including 
the .SFMTEND statement. The address of the table is placed into 
hex F9-FA of the partition control area. You must specify the 
label, or the number of entries, or both. 



STACK Stack label; assigns a name to the subroutine stack. For the 

STACK parameter, you must specify the number of entries to be 
placed in the table whether or not you specify the label. The 
number required for the partition stack entries is the number of 
levels your program uses for nested subroutine calls. Include 
calls to common function routines, calls to external status 
routines, and a call to the program check routine. It is your 
responsibility to control overflow of the partition stack; the 
system does not check for such overflow to prevent the stack 
from extending beyond the end of the partition. 
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Parameter 

Name Description 

STACK Each stack entry is 2 bytes long and contains the return address 

(continued) of the most recent subroutine call. The address of the next 

available space in the subroutine stack is placed into BR 18. 

Note: When the number of table entries is included in a .SYSTAB parameter, it 
overrides the actual number of entries generated from your control statements. 
Therefore, you may reserve extra space for future entries by specifying a number 
greater than the present number of entries. 

Examples: 

If the following two statements are the only .SYSTAB control statements in 
the program, the edit format system table is automatically built when the .END 
statement is processed. 

.SYSTAB PRMT=PTABLE MDUP=MTABLE,4 STACK=SUBSTACK,20; 
.SYSTAB SFMT = ,22; 



SET UP EDIT FORMATS 

Certain I/O instructions and data movement instructions may include an edit 
format. Edit formats describe punctuation, data types, and other editing require- 
ments for the individual fields of a record. The instructions that may include an 
edit format are: 

• READ 

• WRT 

• WFMCRT 

• REBF 

• WRTI 

• WRBF 

For the READ or REBF instruction, the edit format specifies the data area to 
which each input field is moved. For the READ instruction, the fields are moved 
from the I/O buffer after the read operation occurs. For the REBF instruction, the 
fields are moved from the storage area specified in the instruction. 

Data directed formatting may be used with the READ or REBF instruction. 

As the field moves to the data area, specified punctuation and edit characters are 
removed or specified conversion occurs. 
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For the write instructions, the edit format specifies the data area from which each 
field is moved. For the WRT and WRTI instructions, the fields are moved to the 
I/O buffer before the write operation occurs. For the WRBF instruction, the fields 
are moved to the storage area specified in the instruction. For the WFMCRT 
instruction, the fields are moved to the screen, at the screen position specified in 
the instruction. 

As the field moves from the data area, specified punctuation and edit characters 
are inserted into the field or specified conversion occurs. 

In your source program, each edit format must begin with a .FMTST statement and 
end with a .FMTEND statement. Any number of .FMTFLD statements necessary 
may be placed between the .FMTST and .FMTFLD statements. The parameters for 
the .FMTFLD and .FMTEND statements are identical. 



.FMTST Control Statement 

.FMTST LABEL= [CCHAR= CCOL= ] ; 

The .FMTST control statement identifies the start of an edit format specification. 
This statement must be followed by one or more .FMTFLD statements and a 
.FMTEND statement, or by a .FMTEND statement alone. 

Parameter 

Name Description 

LABEL Format label; the name you want to assign to this format descrip- 

tion. This label is used as the format parameter in instructions 
that allow edit specifications format. This is a mandatory 
parameter. 

CCH AR Condition character; the character used in data directed format- 

ting. Any single character is acceptable. This is an optional 
parameter used only for data directed formatting. 

CCOL Character column; the column in which the condition character is 

located. Valid entries range from 1 to the maximum size of the 
I/O buffer. This is an optional parameter used only for data 
directed formatting. 

.FMTFLD Control Statement 

.FMTFLD DCLBL= [LEN= TYPE= COL= { p.pT* } 1 ; 
Each .FMTFLD control statement defines a data field. 
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Parameter 
Name 



Description 



DCLBL Declared label; the label from the control statement that declared 

the register or labeled storage area into which (for READ or REBF 
instructions), or from which (for WRT, WRTI, WRBF, or 
WFMCRT instructions) the field is moved. The label may be 
followed by an optional comma and a length specification of 1 
to 256 bytes. If the length of the storage area is omitted, it 
defaults to the length specified in the declare statement. The 
label is mandatory. 



LEN 



Length; the number of bytes (1-256) to access for this field. This 
is an optional parameter that defaults to 1 . 



TYPE 



COL 



Type; the type of the declared area specified by DCLBL. Valid 
entries are DEC for decimal, and BIN for binary; defaults to BIN. 

Column; the position of the first byte of this field, relative to the 
leftmost byte of the I/O buffer. The valid range begins at 1, which 
indicates the first byte of the buffer. This is an optional param- 
eter that defaults to the next available column to the right. 



EDIT 



Edit specification; indicates how to edit the contents of the 
field during the move. This is an optional parameter that may be 
included if PIC is omitted. You may specify HX, C, W, or an edit 
string. 



HX Converts EBCDIC to binary or binary to EBCDIC. For 

example, B'1001' converts to or from hex F9, and 
B'1010' to or from hex C1. Do not use HX for a stor- 
age area declared with TYPE = DEC. 

C Specifies date edit. Slashes are inserted between each 

two positions as illustrated: 

xx/xx/xx 

W Specifies alternate date edit. Periods are inserted 

between each two positions as illustrated: 

xx.xx.xx 

Edit string characters may be specified only when the field is 
being moved to (for READ and REBF) or from (for write 
instructions) a decimal area, or a binary area with the CV 
parameter specified. 

You may specify more than one of the following, separated by 
commas. 
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rarameter 
Name 

EDIT 
(continued) 



Description 

Character Meaning 

CV Converts decimal to binary or binary to decimal. 

For example, B'1001' converts to or from 9 and 
B"I010' to or from 10. If you convert to binary, 
you cannot specify any other edit string 
characters. 

FX Inserts the currency sign in the field, according to 

the .EDITC parameter EDCUR. It is a fixed sign 
and appears on the left side of the field. It is 
mutually exclusive with FL. It uses two character 
positions; the default is a blank to the left of a 
dollar sign ($). 

ZS Indicates zero suppress. All leading zeros are 

removed except one leading zero to the left of a 
decimal point if decimal character insertion is 
specified. 

CP Indicates comma punctuation as specified by the 

.EDITC parameter EDCOM. It defaults to a 
comma. 

DP Indicates decimal point punctuation as specified 

by the .EDITC parameter EDDEC. It defaults to 
a period. 

n Specifies the number of digits that appear to the 

right of the decimal point. Valid range is 1-15. 

One of the following edit string characters may be specified. 
Default is blank fill (BF). 

Character Meaning 

BF Indicates blank fill. 

AF Indicates asterisk (*) fill. 

ZF Indicates zero fill. 



FL 



Indicates a floating currency sign. It is mutually 
exclusive with FX and uses two character positions. 
It defaults to a blank to the left of a dollar sign ($). 
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Parameter 
Name 

EDIT 
(continued) 



Description 

One of the following edit string characters may be specified. The 
term zone refers to the zone portion of the rightmost byte of the 
decimal register. The term field refers to the field that is moved to 
or from the decimal register. Default is decimal sign (DS). 



Character 
DS 

SS 

NS 



Meaning 

Indicates decimal sign. The zone is hex F for 
positive data, and hex D for negative data. 

Indicates stripped sign. The zone is always 
replaced with hex F. 

Indicates negative sign. If the data is negative, the 
zone has a hex D and the rightmost position of 
the field has a minus sign (-). If the data is posi- 
tive, the zone has a hex F and the rightmost posi- 
tion of the field is blank. 

Indicates signs. Same as NS except the rightmost 
position of the field has a plus sign (+) for positive 
data. 



CR 



Indicates credit. If the data is negative, the zone 
is hex D and the rightmost two positions of the 
field have C'CR'. If the data is positive, the zone 
has hex F and the rightmost two positions of the 
field are blank. 



DB 



Indicates debit. If the data is negative, the zone 
is hex D and the rightmost two positions of the 
field have C'DB'. If the data is positive, the zone 
is hex F and the rightmost two positions of the 
field are blank. 



PIC 



Picture definition; a string of symbols that defines the format of 
the field. This is an optional parameter that may be specified 
only for a WFMCRT, WRT, or WRBF instruction that moves the 
field to a decimal buffer; it is mutually exclusive with the EDIT 
parameter. The number of digits represented by the PIC string 
(not including punctuation) must exactly equal the number of 
digits in the input field in the decimal buffer. Specify one or more 
of the following, enclosed in single quotes. 

Symbol Represents 

9 A decimal digit. A decimal digit is accepted for 

output to the corresponding position of the buffer. 

Z Suppress leading zeros. The corresponding posi- 

tion in the buffer is blanked if the character is a 
leading zero. 
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Parameter 

ii 

hum lie 

PIC 
(continued) 



Symbol 

V 



M 



Represents 

Stop zero suppress. Zero suppression is stopped in 
the corresponding position of the buffer. V must 
be followed by a comma, slash, or period. 

Note: The picture definition must not end with V. 

Insert a blank if the value is 0. A blank is inserted 
into the corresponding position of the buffer if the 
position contains a zero. 

Insert an asterisk. An asterisk is inserted into the 
corresponding position of the buffer if the position 
contains a leading zero. 

Insert a comma. A comma is inserted into the 
corresponding position of the buffer unless zero 
suppression has occurred. 

Insert a slash. A slash is inserted into the corre- 
sponding position of the buffer unless zero 
suppression has occurred. 

Insert a period. A period is inserted into the 
corresponding position of the buffer unless zero 
suppression has occurred. 

Insert a blank. A blank is inserted into the corres- 
ponding position of the buffer. 

Insert a currency symbol. The currency symbol 
can be at a fixed position or placed to the left of 
the most significant digit. To insert a currency 
symbol at a fixed position, place one M at the 
desired position. To insert a floating currency 
symbol, place an M in all leading digit positions 
of the associated field. 

Insert a minus sign. A minus sign is inserted into 
the corresponding position of the buffer if the 
field is negative. 

Insert a plus sign. A plus sign is inserted into the 
corresponding position of the buffer if the field is 
positive. 
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Parameter 




Name 


Description 


PIC 


Symbol 


(continued) 





Represents 

Insert the appropriate sign. The appropriate sign 
(+ or -) is inserted into the corresponding position 
of the buffer. 

Insert CR. The characters CR are inserted into the 
corresponding positions of the buffer if the field is 
negative; otherwise the corresponding positions are 
blank. 

Insert DB. The characters DB are inserted into the 
corresponding positions of the buffer if the field is 
negative; otherwise the positions are blank. 



Example: 



To read the following data from data set 4 and move it from the I/O buffer to 
three decimal registers labeled NAME, SS#, and RATE, the following statements 
may be used: 

3White Elmer J. 404772310 3.36 

.FMTST LABEL=F2; 

.FMTFLD DCLBL=NAME LEN=16 COL=2; skip condition 

character position 

.FMTFLD DCLBL=SS# LEN=9 COL=20; 

.FMTEND DCLBL=RATE LEN=6 COL=31 EDIT=DP, ZF; 

READ (4,F2); 

After the execution of the above statements, the decimal registers contain the 
following data. 

NAME= WHITE ELMER J 
SS#= 404772310 

RATE= 0000000000000336 

A write instruction that specifies F2 as the format parameter would move the 
data from these registers back into the I/O buffer; all punctuation and edit charac- 
ters would be replaced before the record is written to the I/O device. 

The following tables show examples of PIC edit strings. 
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examples ot *.ero suppression 



Input Field 


Edit Word 


Output Field 








12345 


ZZZ99 


12345 


00100 


ZZZ99 


00100 


00000 


ZZZ99 


00000 


00100 


ZZZZZ 


00100 


00000 


ZZZZZ 


00000 


00100 


***** 


**100 


00000 


***** 


***** 


00100 


YYYYY 


00100 


10203 


9Y9Y9 


10203 



Examples of Character Insertion 



Input Field 


Edit Word 


Output Field 








1234 


9,999 


1,234 


123456 


9,999.99 


1,234.56 


1234 


ZZ.ZZ 


12.34 


1234 


ZZV.99 


12.34 


0003 


ZZ.ZZ 


00003 


0003 


ZZV.99 


00.03 


0000 


ZZ.ZZ 


00000 


0000 


ZZV.99 


00.00 


123456789 


9,999,999.99 


1,234,567.89 


1234567 


**, 999.99 


12,345.67 


0012345 


**, 999.99 


***123.45 


123456789 


9.999.999,99 


1.234.567,89 


123456 


99/99/99 


12/34/56 


123456 


99.9/99.9 


12.3/45.6 


001234 


ZZ/ZZ/ZZ 


00012/34 


000012 


ZZ/ZZ/ZZ 


00000012 


000000 


ZZ/ZZ/ZZ 


00000000 


000000 


** /#* /** 


***** *** 


123456 


99B99B99 


12034056 


123 


9BB9BB9 


1002003 


12 


9BB/9BB 


100/200 
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FMTEND Control Statement 

.FMTEND DCLBL= [TYPE= LEN= COL= {pJ^J J 1 > 

The .FMTEND control statement indicates the last field of an edit format. The 
parameters are identical to the .FMTFLD control statement. 



SET UP SCREEN CONTROL FORMATS 

A screen control format describes a record that is entered via the keyboard/display. 
One screen control format must be specified with each ENTR instruction. When 
the 5280 encounters an ENTR instruction during program execution, it directs the 
keyboard/display to allow the fields of one record to be entered from the keyboard. 
The screen control format specifies the length of each field and the type of data 
that may be entered. The 5280 checks the characters entered into each field to 
make sure it meets the specifications of the screen control format. Valid data for 
each field is placed into the I/O buffer as it is entered, according to the current 
mode of entry. (See Modes of Entry in Chapter 2.) The screen control format 
can also specify prompts and display attributes to be displayed as the record is 
entered. The prompts and display attributes are moved to specified positions on 
the screen. 

During an ENTR operation, the keyboard/display maintains two pointers. The 
buffer position pointer always contains the position, relative to the first byte of the 
I/O buffer, of the next available buffer position. The screen position pointer 
always contains the next available screen position. 

In your source program, each screen control format must begin with a .SFMTST 
statement and end with a .SFMTEND statement. Between these two statements, 
you may include as many of the following statements as necessary: 

Statement Purpose 

.SFMTCTL Specify control of screen attributes, data movement, keyboard 
functions, or format execution. 

.SFMTPMT Specify prompts to move to the screen. 

.SFMTFLD Describe the display attributes, field type, and keyboard functions 
of an input field. 

.SFMTCNS Specify constant insert data to place in the I/O buffer and to also 
move to the screen. 
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Certain parameters or parameter keywords are common to more than one .SFMT 
control statement. These are as follows: 

Parameter Description 

CNTL Control; one or more keywords that specify control of the 

screen attributes, keyboard functions or format execution. 
The CNTL parameter may be specified in any of the .SFMT 
control statements. One or more of the following keywords 
may be specified for the CNTL parameter, depending on the 
particular control statement. 

Keyword Meaning 

RG Return to program; the keyboard/display suspends 

processing key entry under the current ENTR 
command and sets on an external status indicator 
in the KB/CRT I/O control block. 

If the key entry is processing in a forward direc- 
tion when this parameter specification is encount- 
ered, the resulting external status condition is 
condition 4. The current .SFMT statement, which 
contains this RG parameter, is processed before 
key entry is suspended. 

If key entry is processing in a backward direction 
such as during a backspace when this parameter is 
encountered, the resulting external status condition 
is condition 5. The current .SFMT statement, 
which contains this RG parameter, is not 
processed before key entry is suspended. 

DE Dup key status; changes the status that determines 

whether pressing the Dup key is allowed within a 
field. The Dup key is initially enabled at the start 
of each screen format control series. If it is 
enabled when this statement is encountered, it 
becomes disabled. If it is disabled when this state- 
ment is encountered, it becomes enabled. 

MC Monocase conversion status; changes the status 

that determines whether all lowercase alphabetic 
characters (and any other characters in the ex- 
tended international character set for which an 
uppercase-lowercase relationship is defined) are 
converted to their uppercase equivalents as they 
are keyed, before they are inserted into the 
record and displayed upon the screen. The mono- 
case conversion feature is initially disabled at the 
start of each screen format control series. If it is 
disabled when this statement is encountered, it 
becomes enabled. If it is enabled when this state- 
ment is encountered, it becomes disabled. 
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Parameter 
Name 

CNTL 
(continued) 



Description 

Keyword 

FX 



SV 



Meaning 

Field- status; changes the status that determines 
whether the Field- (Field Exit Minus) key is per- 
mitted in a field defined as a numeric shift field. 
The Field- key function is initially enabled at the 
start of each screen format control series. If it is 
enabled when this statement is encountered, it 
becomes disabled. If it is disabled when this state- 
ment is encountered, it becomes enabled. 

Specify verify status; changes the status that 
determines whether the mode is changed from 
verify mode to special verify mode for this field. 
If special verify mode is enabled when the cursor 
enters the field, the mode is changed to special 
verify mode. Special verify mode allows the oper- 
ator to enter data into the field without the 
normal verify checking against the contents of 
the field in the I/O buffer. When the field is 
exited in the forward or backward direction, the 
mode is restored to verify mode. The special 
verify mode status is disabled at the start of each 
screen control format. If it is disabled when this 
statement is encountered, it becomes enabled. 
If it is enabled when this statement is encountered, 
it becomes disabled. 



CS 



DSPLY 



Clear screen; the screen is cleared, except for the 
status line, prior to processing any other CNTL 
specifications within this statement. 



Display attributes; specifies display attributes to affect this field 
only. The 5280 replaces the display attributes currently in effect 
by moving the attributes you specify in this DSPLY parameter 
to the screen as immediate data. The 5280 uses the cursor posi- 
tion immediately preceding the field to move the attributes to the 
screen. It also uses the cursor position immediately following 
the field to return to the screen the attributes in effect before 
the change. Remember to include these two cursors if you are 
counting positions for the CSPS parameter. For example, if you 
change display attributes for a field that is 8 positions long, the 
5280 uses 10 cursor positions. 

This parameter is optional and should not be used if you specified 
the display attributes with the H LIN and NMIN parameters of the 
.KBCRT control statement. You may specify one or more of the 
following attributes, separated by commas. 
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Parameter 
Name 

DSPLY 
(continued) 



uescription 

Symbol Meaning 

ND Nondisplay of the field 

NM Normal display of the field 

BL Blink the field 

CS Display column separators for the field 

HI High intensity for the field 

Rl Reverse image for the field 

UL Underline the field 



Notes: 

1. The ND (nondisplay) and the NM (normal display) attributes 
are incompatible with any other specification. 

2. If you specify UL (underline), Rl (reverse image), and HI 

(high intensity) for the same field, display of the field is inhibited. 

3. The DSPLY parameter has a different effect when specified 
in a .SFMTCTL control statement than when specified in one 
of the other statements. Check the DSPLY description for 
the .SFMTCTL control statement. 

BFPS Buffer position pointer changed; specifies a signed number (±n) 

that specifies the direction and number to change the current 
record buffer pointer position. This pointer determines where the 
next keystroke is to be placed within the current record buffer. 
This is an optional parameter. 

CSPS Screen position pointer changed; changes the pointer before any 

prompts, constant inserts, or input data is displayed on the screen. 
This is an optional parameter. You may enter one of the 
following: 

Entry Meaning 

±n A signed number; indicates the direction and number of 

the change. 

NL Next line; places the pointer in the first column of the 

next line. 

Notes to CSPS: 

1. You must be careful not to move any data to the screen at a position that will 
allow the data to extend beyond the available screen positions. If this happens, 
the data may overwrite the data on another screen. 

2. NL is incompatible with ES (execute secondary format), CI (conditional bypass), 
and CP (continue at current cursor position) specifications. 

The 5280 assembler generates a string of object code for each screen control format 
in your source program. Each series of control statements, which begins with a 
.SFMTST statement and ends with a .SFMTEND statement, is used to generate one 
string of object code. This string of object code is referred to as a screen format 
control string. 
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The assembler converts the control statements to object code sequentially, so you 
must code your .SFMT statements in the order you wish them to be executed. 
Within each source control statement, you may specify parameters in any order. 
However, there is a prescribed order in which certain parameter keyword specifica- 
tions are placed in the object code string. This affects the order in which the param- 
eter specifications are processed during program execution. The control statement 
descriptions specify the order in which the parameter specifications are processed. 

The RG (return to program) specification is always placed in the object code string 
in association with another parameter specification. Therefore, if you specify 
CNTL=RG in a control statement, you must specify at least one other parameter. 

The RG specification is usually associated with the parameter that is first processed 
in each control statement. When the object code string is being processed in a 
forward direction and an RG specification is encountered, an external status 4 
condition results. The RG specification is encountered after the parameter with 
which it is associated is processed. However, if the object code string is being 
processed in a backward direction when an RG specification is encountered, an 
external status 5 condition results. The RG specification is encountered before the 
parameter with which it is associated is processed. 

Therefore, if you include a .SFMTCTL control statement that contains only an 
RG specification and an ES (execute secondary screen format) parameter, or a CI 
(conditional bypass) parameter, the RG specification is encountered after the ES 
or CI parameter has been processed. If you want the return (external status 4 
condition) to be made before the secondary screen format or the conditional bypass 
is processed, you must include another parameter in the control statement. The 
other parameter must be higher in the processing order than the ES or CI parameter. 
Then the RG return is made, after the other parameter is processed and before the 
ES or CI parameter is processed. 

An exception is made when an RG specification is included in a .SFMTFLD or a 
.SFMTCNS control statement. For these control statements, the RG specification 
is always associated with the FLDF parameter or the CNST parameter. This is true 
even if another parameter (such as BFPS) is included that is higher in the processing 
order. The return (external status 4 condition) is made after the FLDF input field 
or CNST constant has been entered into the I/O buffer. If the object code string is 
being processed in a backward direction, the return (external status 5 condition) is 
made before the cursor enters the FLDF or CNST field. 
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.SFMTST Control Statement 

.SFMTST LABEL= [CNTL=] ; 

The .SFMTST control statement identifies the start of a screen format control 
series. Each screen format control series specifies one format for data input via 
the keyboard/display unit. Each series must start with a .SFMTST statement and 
must end with a .SFMTEND statement. No other .SFMTST statements are valid 
before a .SFMTEND statement is encountered. 

Parameter 

Name Description 

LABEL Label; identifies this screen format series, which includes all 

.SFMT statements before a .SFMTEND statement is 
encountered. This parameter is mandatory. This label is 
specified as the format operand in an ENTR command. 

CNTL Control keywords; up to four keywords are acceptable; 

separate them with commas. This is an optional parameter. 

Keyword Meaning 

RG Return to program. 

MV Move data; before data entry keystrokes are 

accepted, the contents of the current record buffer 
are moved into the appropriate data input and 
constant insert fields. Prompts and display attri- 
butes specified within the screen format series are 
moved to the screen as specified. 

In update, rerun/display, or display mode, this 
function is automatically invoked. 

In verify mode, this function is automatically 
invoked except that data fields on the screen are 
blanked. 

In enter mode, you must include the MV parameter 
in the .SFMTST statement if you want the move 
data function to be invoked. Otherwise, the 
prompts and display attributes appear on the 
screen when they are passed over by the cursor for 
the first time. The content of the current record 
buffer does not appear on the screen unless it is 
rekeyed by the operator. 

CS Clear screen. 

CP Continue at current cursor position; begins this 

screen format at the current cursor position. If 
this keyword is omitted, the cursor position is 
reset to line two, column one at the beginning of 
data entry under the enter statement. 
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Example: 

.SFMTST LABEL=F0RMAT1 CNTL=CP,MV; 



.SFMTCTL Control Statement 



.SFMTCTL [Cl= CNTL= DSPLY= CSPS= BFPS= ES=] ; 



The .SFMTCTL control statement specifies screen or keyboard control operations. 
Although all parameters are optional, at least one parameter must be specified each 
time you include the .SFMTCTL statement. 



Parameter 
Name 

CI 



CNTL 



Description 

Conditional bypass indicator; the label of an indicator, followed 
by OFF or ON, for a conditional bypass of a portion of this 
.SFMT series. This must be followed by an end of bypass control 
parameter (CNTL=CE) in a .SFMTCTL statement within this 
.SFMT series. All statements between this statement and the 
.SFMTCTL statement with the CE parameter are bypassed if the 
specified indicator is on and ON is indicated, or if it is off and 
OFF is coded. This is an optional parameter. Only one level of 
bypass is allowed. See Conditional Bypass under Screen Formats 
in Chapter 2 for more information. 

Control keywords; up to five keywords are allowed. If more than 
one keyword is entered, separate them with a comma. 



Keyword 
RG 



CE 



DE 
MC 
FX 
SV 



Meaning 

Return to program. Whenever the RG keyword is 
included for the CNTL parameter of a .SFMTCTL 
statement, at least one more keyword must also be 
included. 

End of bypass; concludes the bypass portion with- 
in the format control series. A CE specification 
must have been preceded by a start of bypass (CI) 
parameter in a previous control statement within 
this .SFMT series. 

Dup key status change. 

Monocase conversion status. 

Field exit status change. 

Special verify mode status change. 
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Parameter 

Name 



DescriDtion 



DSPLY 



Display attribute; specifies a display screen attribute, which is 
moved to the screen at the current cursor position. The fields 
preceding the cursor position are not changed. The fields follow- 
ing the cursor position are displayed with the display attributes 
specified in the .SFMTCTL statement DSPLY parameter until 
another DSPLY parameter is encountered. Remember to include 
this cursor position if you are counting positions for the CSPS 
parameter. This is an optional parameter and should not be used 
if you specified the display attributes with the HLIN and NMIN 
parameters of the .KBCRT control statement. One or more of 
the following keywords, separated by commas, may be entered. 



Keyword Meaning 



BL 

CS 

HI 

ND 

Rl 

UL 

NM 



Blink 

Column separators are displayed 

High intensity 

Nondisplay 

Reverse image 

Underline 

Normal display 



Note: The ND (nondisplay) and the NM (normal display) attri- 
butes are incompatible with any other specification. If you 
specify UL (underline), Rl (reverse image) and HI (high intensity) for 
the same field, display of the field is inhibited. 



CSPS 
BFPS 
ES 



Screen position pointer changed. 

Buffer positions pointer changed. 

Execute secondary screen format; specify the label (LABEL 
parameter from the .SFMTST statement) of the secondary screen 
format. When the 5280 encounters this specification, it executes 
the entire secondary screen format, then returns to the primary 
screen format at the specification following the ES specification. 
See Secondary Screen Format under Screen Formats in Chapter 
2 for more information. This is an optional parameter. 



Only one level of secondary format is permitted. The secondary 
format specified by this parameter must not have a secondary 
format specification within its statements. 
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Although the parameters may be specified in any order, the order in which they 
are processed is: 



1. 


BFPS, CSPS 


2. 


DSPLY 


3. 


FX,MC, DE 


4. 


ES 


5. 


Ci 


6. 


CE 



If RG is included, it is associated with the parameter that is first in processing order. 
The return (external status 4 or 5 condition) is made after that parameter is 
processed in the forward or backward direction (respectively). 

Example: 

.SFMTCTL CNTL=DE,FX CSPS=20 BFPS=+15 ES=FMT6 CI=CHK,OFF; 

.SFMTPMT Control Statement 

.SFMTPMT PRMT= [CSPS= DSPLY= CNTL=] ; 

The .SFMTPMT control statement specifies a prompt to display on the screen. 
You set up and initialize the prompts with .DC control statements. 

When you specify prompts for a screen format, be careful that the prompt length 
is not greater than the available screen positions. If such a prompt is moved to 
the screen, the prompt may extend beyond the screen into the screen area used by 
another keyboard. This may overwrite and destroy the original contents of 
another screen or destroy control information for your screen. 

Parameter 

Name Description 

PRMT Prompt; you must specify one of the following for this mandatory 

parameter. 

SP, label Standard position prompt; specifies the LABEL 
parameter of the .DC statement that set up and 
initialized the prompt. The indicated prompt is 
displayed at the current location of the screen posi- 
tion pointer. A standard position prompt is not 
redisplayed if it is encountered during backspace 
operations. 
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Parameter 




Name 


Description 


PRMT 


FP, label 


(continued) 





Fixed position prompt; specifies the LABEL param- 
eter of the .DC statement that set up and initialized 
the prompt. The indicated prompt is displayed in 
column 1 of the fixed prompt line. You can 
specify the fixed prompt line by including the 
FPLC parameter in the .KBCRT control statement. 
If you omit the FPLC parameter, the fixed prompt 
line defaults to line two. The line is cleared before 
the prompt is displayed. A fixed prompt is redis- 
played if it is encountered during backspace 
operations. 

CP,nn Clear fixed prompt line. No label may be specified 

with CP, although an optional length may be speci- 
fied. If a length (nn) is specified, only the indicated 
number of positions are cleared on the fixed prompt 
line. If no length is specified, the entire line is 
cleared from the screen. 

CSPS Change screen position pointer. 

DSPLY Display attribute specification. 

CNTL Control; only RG may be specified. 

Although the parameters may be specified in any order, the order in which they are 
processed is: 

1. CSPS 

2. DSPLY (turn on an attribute) 

3. PRMT 

4. DSPLY (turn off the attribute) 

If RG is included, it is associated with the parameter that is first in processing 
order. The return (external status 4 or 5 condition) is made after the parameter 
with which it is associated is processed in the forward or backward direction 
(respectively). 

Examples: 

.SFMTPMT PRMT=SP,PMESGE3 DSPLY=BL,HI CSPS=+7 CNTL=RG; 

.SFMTPMT PRMT=CP; this clears the fixed prompt line. 

.SFMTPMT PRMT=CP,20; this clears the first 20 positions of the fixed prompt 
line. 
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.SFMTCNS Control Statement 

.SFMTCNS CNST= [CSPS= BFPS= DSPLY= CNTL=] ; 

The .SFMTCNS control statement specifies a constant insert field. 

In enter, update, and rerun modes, a constant insert is placed into the I/O buffer 
and displayed on the screen in the current field position. The cursor does not 
appear within the constant insert field and the operator cannot enter data into the 
field. 

In verify mode, verification of a constant insert field is done automatically. The 
contents of the field are compared to the contents of the main storage area 
declared with a .DC control statement and specified with the CNST parameter 
described below. If the verification is successful, a field advance is performed. If 
the verification is not successful, the cursor is positioned in the leftmost position 
of the constant insert field and the contents of the field in the I/O buffer are dis- 
played on the screen. A constant insert verify mismatch error is reported. The 
operator must press the Reset key, then press either the -*l(Field Advance) key, or 
a field correct key. If the -Hkey is pressed, the contents of the field in the I/O 
buffer remain unchanged and a field advance is performed. If a field correct key 
is pressed, the contents of the field in the I/O buffer and on the screen are replaced 
with the contents of the main storage area, then a field advance is performed. Any 
data key or any function key handled by the 5280 (except a shift key) is invalid 
after the Reset key is pressed. 

Parameter 

Name Description 

CNST Constant name; the label assigned to the character string by a 

.DC statement, which includes the TYPE=PRMT parameter. 

CSPS Change screen position pointer. 

BFPS Change buffer position pointer. 

DSPLY Display attributes. 

CNTL Control; only RG may be specified. 

Although the parameters may be specified in any order, the order in which they are 
processed is as follows: 

1. BFPS, CSPS 

2. DSPLY (turn on attribute) 

3. CNST 

4. DSPLY (turn off attribute) 

If RG is specified, it is associated with the CNST parameter. The return (external 
status 4 condition) is made after the constant is entered into the I/O buffer. 
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Example: 

.SFMTCNS CNST=PAYRATE CSPS=NL BFPS=+2 DSPLY=CS,HI,UL CNTL=RG; 

.SFMTFLD Control Statement 

.SFMTFLD FLDF= [CNTL= CSPS= BFPS= PIC= DSPLY=] ; 

The .SFMTFLD control statement defines a data field for data entry. Field type 
and field definition keywords for the FLDF parameter are defined following the 
.SFMT control statement descriptions. 



Parameter 
Name 

FLDF 



Description 

Field Definition; three positional keywords that specify field 
type, field length, and field definition. Field type is omitted 
if the PIC parameter is used. 

Field type and field definition keywords are described following 
the .SFMTEND control statement under Field Type Keywords 
and Field Definition Keywords. Following the keyword descrip- 
tions is a chart (Figure 3-8) that shows which keywords are 
mutually exclusive and which require other keywords. 

Note: Characters considered valid in any field type may be rede- 
fined at system configuration. 

Field type, mandatory first position: Mandatory unless you use 
the PIC parameter. If you use PIC, omit the field type entry in 
this position and retain the comma before the length entry. If 
you do not use PIC, enter one or more of the following, separ- 
ated by commas. 

Symbol Meaning 



A 


Alphabetic shift 


N 


Numeric shift 


W 


Special characters shift 


X 


Alphabetic only 


Y 


Numeric only 


V 


Special characters only 


D 


Digits only 


H 


Hex field 


S 


Signed numeric 


F 


Format level zero 



Field Length, mandatory second position: Enter a number from 
1 to the maximum number of valid positions remaining on the 
screen. 



100 



Parameter 
Name 



CNTL 



Description 

Field definition, optional third position: Enter one or more of 
the following, separated by commas. 

Symbol Meaning 

FE Field exit required 

RB Right adjust, blank fill (not allowed if PIC is coded) 

RZ Right adjust, zero fill (not allowed if PIC is coded) 

AD Auto dup 

AS Auto skip 

ME Mandatory enter 

DR Data required 

MF Mandatory fill 

BC Blank check 

RL Right-to-left (not allowed if PIC is coded) 

BV Verify bypass 

AA Absolutely automatic 

BY Bypass 

Control keywords; up to four optional keywords are acceptable; 
separate them with commas. 

Keyword Meaning 



MD 



RG Return to program. 

DE Dup key status change. 

MC Monocase conversion status change. 

FX Field- key status change. 

SV Special verify mode status change. 

Main storage duplication; the label of a storage location defined 
for duplication by a .DC control statement, using the TYPE = 
MDUP parameter. In enter, update, or field correct mode, the 
data from the storage location is duplicated into the field when the 
Dup key is pressed. Duplication starts at the current position 
within the field and continues to the end of the field. 



In verify mode, the contents of the field are verified against the 
contents of the storage location. If a mismatch error occurs 
during verification, the cursor stops at that position, the entire 
field is displayed, and a verify mismatch error is reported. If the 
operator presses the Reset key, then again presses the Dup key, 
the character in the storage location replaces the character in the 
I/O buffer. Verification then continues to the end of the field. 

If the field is also defined as auto dup (AD), the duplication 
from storage is done automatically for the entire field if the 
auto dup/skip mode is active or if the absolutely automatic (AA) 
attribute is also specified for the field. 
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Parameter 

I1UIIIV l/CJWI ti^uun 

MS Main storage store; the label of a storage location defined by a 

.DC using the TYPE = MDUP parameter. In enter, update, 
verify, or rerun mode, the content of the field is moved into this 
storage location when the field is exited and if the auto dup 
switch is on, or if the absolutely automatic (AA) attribute is 
also specified for the field. 

CSPS Change screen position pointer. 

BFPS Change buffer position pointer. 

PIC Subfield picture definition; defines subfields within the original 

field. 

PIC consists of one or more ordered pairs of 2-positional entries; 
the first position is field length and the second position is field 
type. The positional entries are separated by commas; each pair 
of entries is enclosed by parentheses; and the pairs are separated 
by commas. 

Note: If this parameter is specified, place a blank in the field 
type (first) position of the FLDF parameter for this .SFMTFLD 
control statement. The PIC parameter cannot be specified if 
RB (right adjust, blank fill) or RZ (right adjust, zero fill) is 
specified for the field definition keyword (third) position of the 
FLDF parameter for this .SFMTFLD control statement. 

Subfield Length; First Position 

A number from 1 to 8 that specifies the length of the subfield. 

Subfield Type; Second Position 

Symbol Meaning 



A 


Alphabetic shift 


D 


Digits only 


H 


Hexadecimal 


N 


Numeric shift 


V 


Special characters shift 


X 


Alphabetic only 


Y 


Numeric only 


Z 


Special characters only 



DSPLY Display attributes. 
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Although the parameters may be specified in any order, the order in which they are 
processed is as follows: 

1. BFPS, CSPS 

2. DSPLY (turn on attribute) 

3. DE, MC, FX 

4. FLDF 

5. DSPLY (turn off attribute) 

If RG is included, it is always associated with the FLDF parameter. The return 
(external status 4 condition) is made after the FLDF input field is entered into the 
I/O buffer. 

Examples: 

.SFMTFLD FLDF=A,10,FE,ME CNTL=RG,DE MS=STORS CSPS=+10 BFPS=+10 
DSPLY=HI; 

.SFMTFLD FLDF= ,20 PIC=(8,A), (6,N), (6,A); 

.SFMTEND Control Statement 

.SFMTEND [CNTL=] ; 

The .SFMTEND control statement identifies the end of a screen format series. 

This must be the last statement of each screen format control series. 



Parameter 
Name 

CNTL 



Description 

Control keywords; up to two keywords are acceptable, separated 
by a comma. This is an optional parameter. 

Keyword Meaning 

BZ Sound buzzer; when this statement is encountered 

at the end of a screen format control series, a 
buzzer is sounded in the keyboard/display unit. 



CS 



Clear screen; the screen is cleared except for the 
status line. 
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Examples: 

.SFMTEND CNTL=BZ,CS; 
.SFMTEND; 

Example of Screen Format Control Series: 

.SFMTST LABEL=EXAMP1 CNTL=CS,MV; 

.SFMTPMT PRMPT=SP f MSG CSPS=10 DSPLY=HI; 

.SFMTFLD FLDF=,12, DR,BC CNTL=RG CSPS=NL BFPS=5 PIC=(5 f A), (7,D); 

.SFMTCNS CNST=KONST CSPS=+5 DSPLY=UL; 

.SFMTFLD FLD=N, 20,AD CNTL=DE MD=DUPDATE CSPS=+5 BFPS=1; 

.SFMTEND CNTL=BZ; 



Field Type Keywords 

Keyword Meaning 

A Alphabetic shift. All characters are accepted under this character set 

definition. The keyboard shift is positioned to the lower symbol of 
each data key for data entry, proof, and typewriter keyboards. 

D Digits only. Only the digits 0-9 are accepted under this character set 

definition. If any other character is keyed, an error results. The key- 
board shift is positioned as for a numeric shift field (N). 

F Format level zero. In enter, update, or verify mode, format level zero 

specifies a series of 1-byte alphabetic fields. The length of the field 
specified determines the number of 1-byte fields. 

Note: The field definition keywords of the FLDF parameter must 
not be used if type F is specified. 

H Hexadecimal. Only hexadecimal characters (0-9, A-F) are accepted 

under this character set definition. If any other character is keyed, an 
error results. The keyboard shift is positioned to the upper symbol of 
each data key for data entry and proof keyboards, or on the lower 
symbol for typewriter keyboards. 

Each pair of hex digits entered is combined to form one position in the 
field. For example, if hex 3 and hex F are keyed, 3F is inserted into 
one record position. The Alpha shift key must be used to select A 
through F on the data entry or proof keyboards. 

N Numeric shift. All characters are accepted under this character set 

definition. The keyboard shift is positioned to the upper symbol on 
each data key for data entry and proof keyboards, or to the lower 
symbol for typewriter keyboards. 
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Keyword Meaning 

S Signed numeric. The rightmost position of the field on the screen is 

reserved for a sign; no data can be entered directly into this position. 
The .SFMTFLD statement that defines the field must not specify digits 
only (D) for the field type, and must not specify right adjust (RA) and 
field exit required (FE) for the field definition keywords. These speci- 
fications are already implied for a signed numeric field. To exit the 
field in enter, update, or field correct mode, the Field+, Field Exit, 
or Field- key must be used. If one of the first two keys is pressed, the 
data is right-adjusted, the sign position is set to blank on the screen, 
and the data in the record does not change. If the Field- key is 
pressed, the data is right-adjusted, the sign position is set to minus on the 
screen, and the zone portion of the low-order digit of the field is changed 
to hex D. 

This field type cannot be specified for a PIC field specification. 

V Special characters shift. All characters are accepted under this character 

set definition. On some native language keyboards certain keytops are 
divided into quadrants. The two rightside quadrants represent special 
characters; the two leftside quadrants represent standard alphameric 
characters. The following illustrates the quadrants. 



Alphameric 



Upper 
Shift 

Lower 
Shift 



Special 



Characters Characters 

For a special characters shift field, the keyboard is initially positioned 
in lower shift. If a key is pressed that has both special and alphameric 
symbols, the lower rightside special symbol is selected unless a shift key 
is pressed. 

This field type is valid only for the appropriate native language symbols. 
If it is specified for any other keyboard, a format-control-series-error 
external status condition (13) occurs. 

Alphabetic only. Only the following characters are accepted under this 
character set definition: A-Z, comma, period, dash, and blank. If any 
other character is keyed, an error results. The keyboard shift is posi- 
tioned to the lower symbol on each data key for data entry, proof, and 
typewriter keyboards. 

Numeric only. Only the following characters are accepted under this 
character set definition: 0-9, comma, period, dash, plus, and blank. If 
any other character is keyed, an error results. The keyboard shift is 
positioned to the upper symbol on each data key for data entry and 
proof keyboards, or on the lower symbol for typewriter keyboards. 
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Keyword Meaning 



V Special characters only. Only characters defined via the character 

validity table as special characters are accepted under this character set 
definition. If any other character is keyed, an error results. The key- 
board shift is positioned as in a special character shift field. This field 
type is valid only for the appropriate native language keyboards. 



Field Definition Keywords 

Keyword Meaning 

AA Absolutely automatic. In enter, verify, field correct, update, or rerun 

mode, this keyword is used in conjunction with auto dup (AD), auto 
skip (AS), or main storage (MS). Automatic processing of the dup, 
skip, or store is done whether or not the auto dup/skip mode is active. 
If the field is defined as auto dup (AD), main storage dup (MD), and 
absolutely automatic (AA), automatic duplication from main storage 
occurs. 

AD Auto duplicate. AD may be specified alone or in conjunction with 

main storage duplicate (MD). In an enter or update mode, if a field is 
defined only as auto dup, the system automatically duplicates data 
from corresponding positions in the previous record if the auto dup/ 
skip mode is active, or if the absolutely automatic (AA) attribute is 
also specified for the field. The duplication starts at the current posi- 
tion within the field and continues to the end of the field. 

If a field is defined as auto dup (AD) and main storage dup (MD), the 
duplication occurs as described under the main storage dup (MD) 
function. 

In verify mode, if a field is defined as auto dup (AD), the system auto- 
matically verifies that the data in the current record buffer matches the 
data in corresponding positions in the previous record buffer. Verify 
mismatch error recovery from an AD field is identical to the error 
recovery from manual dup. 

If the auto dup function is invoked, all character and field edit checks 
are released for the field; the verify checks are not released. 

AS Auto skip. When an auto skip field is entered, the system automatically 

fills it with blanks and skips to the next field if the auto dup/skip mode 
is active or if the absolutely automatic (AA) attribute is specified in the 
field definition. 

In verify mode, the positions of the field are verified for blanks. If a non- 
blank character is encountered, the cursor stops at the position, the 
remainder of the field is displayed, and a verify mismatch error is 
reported. If the operator presses the Reset key, then presses the Skip 
key, a blank is inserted into the I/O buffer at that position and the 
verification continues. 
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Keyword Meaning 

BC Blank check. In enter, update, or field correct mode, the system 

checks each character as it is entered to ensure that it is not a blank 
character. When a field is exited, the system checks the entire field to 
ensure that if one character is entered into the field, no blanks are 
entered into the field. Therefore, should an operator move the cursor 
over a number of blank positions in the field before keying in the first 
character, the blank positions are detected before the field is exited. 

The Skip, Field Exit, or Field+ key is valid in the first position of the 
field; the entire field is filled with blanks. 

In verify mode, the BC is ignored except during a field correct. 

The code for the blank may be defined on the .KBCRT statement or 
defaulted to hex 40. 

BV Bypass in verify mode. In verify mode, the system bypasses this field. 

No verification is required, and the data in the record is left unchanged. 
BV overrides the auto dup (AD) and auto skip (AS) functions. 

In enter or update mode the field is processed normally. 

BY Bypass. In enter, update, verify, or rerun mode, the system passes over 

this field and allows no data to be entered into it. Data already in the 
field is left unchanged. (The auto dup/skip switch does not affect 
processing of bypass fields.) 

DR Data required. In enter, update, or field correct mode, the system 

ensures that at least one nonblank character is present in the field. The 
checking is done as the advance to the next field is being processed. 

In verify mode, DR is ignored except during a field correct. 

FE Field exit required. In enter, update, verify, or field correct mode, a 

nondata key (for example Field Exit or Skip) must be pressed to leave 
the field. When a data character has been keyed into the last position 
of the field, the cursor remains beneath that character and blinks to 
signal the operator that a field exit key is needed. If the field is signed 
numeric (S), the cursor remains to the left of the sign position. A data 
key or Dup key entered at this time results in an error. The counter for 
positions remaining in the field, which is maintained on the status line, 
is at 01 . If the operator wishes to make a correction in the field, 
prssing the «- key will turn off the blinking cursor and allow corrections 
to be made. 

FE must not be specified if RB or RZ is specified. 
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Keyword Meaning 

ME Mandatory enter. In enter, update, or field correct mode, at least one 

data character must be entered into the field before the field is exited. 
Blanks are acceptable in a mandatory enter (ME) field; use the blank 
check (BC) specification if you do not want blanks to be entered into 
the field. The check is done as the advance to the next field is being 
processed. 

The ME is ignored in verify mode, except during a field correct. 

A field exit or Skip key pressed in the first position of an ME field 
does not satisfy the mandatory enter requirement; it results in an error. 
If a field exit or Skip key is pressed in any position other than the first 
position and no valid character has yet been entered, it results in an error. 

MF Mandatory fill. In enter, update, or field correct mode, the system 

ensures that if one character is entered into the field, all positions in the 
field must be filled. Blanks are acceptable. 

MF cannot be specified with a right-adjust (RA) specification. 

In a left-to-right field, any data entry must begin in the leftmost posi- 
tion of the field. After one data character is entered, the operator can 
proceed through the field only by keying each position. Any attempt 
to move forward in the field with a key other than a data key or space 
key results in an error. Any attempt to key the first character into a 
position other than the leftmost position results in an error. The Ins 
(Insert) and Del (Delete) keys are invalid. 

In a right-to-right field (RL), any data entry must begin in the rightmost 
position of the field. After one data character is entered, the operator 
can proceed through the field only by keying each position. Any 
attempt to move backward in the field with a key other than a data 
key or space key results in an error. An attempt to key the first charac- 
ter into a position other than the rightmost position results in an error. 

If the field is not filled with blanks when the cursor moves into the field, 
no mandatory fill (MF) checking is performed. 

The Skip, Field+, or Field- key is valid in the first position of a manda- 
tory fill (MF) field. The entire field is filled with blanks, except in the 
following two conditions: 

1. When the Field- key is pressed in the first position of a field that 
is not specified as signed numeric (S), the rightmost position is set 
to minus zero. 

2. When the Field- key is pressed in the first position of a signed 
numeric field, the rightmost field position on the screen is set to 
zero, and the sign position is set to minus. In the record buffer, 
the rightmost position is set to minus zero. 
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Keyword Meaning 

RB Right adjust, blank fill. A right adjust field must be two or more bytes 

in length. When the Field Exit, Field+, or Field- key is pressed in enter, 
update, or field correct mode, the system automatically right adjusts the 
data within the field, and the nondata positions on the left are filled 
with the alphabetic fill character, which is normally blank. When a 
right adjust is performed in a signed numeric field, the data is justified to 
the next rightmost position of the field on the screen before the appro- 
priate sign is inserted. If the field is processed as an auto field, or if any 
other key is used to exit the field, the field is processed but no right 
adjust is performed. 

RB is not allowed if subfields are defined with the PIC parameter. Do 
not specify FE; field exit required is implied for a right adjust field. 

RZ Right adjust, zero fill. RZ is as for RB, except the numeric fill character, 

which is normally a zero, is used. 

RL Right-to-left. The first position of the field is the rightmost position; 

the last position of the field is the leftmost position. In enter, update, 
field correct, or verify mode, the cursor is initially positioned in the 
rightmost position of the field, which is the first manual position of the 
field. The system accepts or verifies data in the field moving from the 
rightmost position to the leftmost position. (For example, the keys A, 
B, C entered into an RL field would appear as: 

__CBA 

with the cursor positioned to the left of the C.) 

RL is not allowed if subfields are defined with the PIC parameter, or if 
the field is a signed numeric field. 
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Field Types 


A 


- Alpha shift 


D 


— Digits only 


H 


- Hex field 


F 


— Format 


N 


— Numeric shift 


S 


— Signed numeric 


V 


— Special characters only 


W 


- Special characters shift 


X 


— Alphabetic only 


Y 


— Numeric only 



ADHFNSVWXY 



IP) (M) 
AA AD AD AS BC BV BY DR FE ME MF RB RL RZ 



MD MS PIC 



Field Definitions 

AA — Absolutely automatic 

AD(P) - Auto dup, previous record 

AD(M) — Auto dup, main storage 

AS — Auto skip 

BC - Blank check 

BV — Verify bypass 

BY - Bypass 

DR — Data required 

FE — Field exit required 

ME — Mandatory enter 

MF - Mandatory fill 

RB - Right adjust, blank fill 

RL - Right-to-left 

RZ - Right adjust, zero fill 

Parameters 

MD — Main storage dup 
MS — Main storage store 
PIC - Picture subfields 



XXXXXXXXX 

X xxxxxxxx 
XX xxxxxxx 
XXX xxxxxx 
xxxx xxxxx 
xxxxx xxxx 

XXXXXX XXX 
XXXXXXX XX 
XXXXXXXX X 

xxxxxxxxx 




xxxxxxxxxxxxxx 
X xxxxx 


XXXXXXXXXX 
X 
X 










xxxxxxxxxxxxxx 

XXXX X 




XXXXXXXX X*** 
X X 

x x a° 

X XX 
X X 
X 

xxxxxxx xxxxxx 

X X 

XX X X 

X X 

XX X X 

XXXX X 

XX X X 

XXXX X 


X 

X X 

X 
X 
X 










X 
X 

xxxxxxxxxx 




X & x 

X X XXX 





ADHFNSVWXY 



AA AD AD AS BC BV BY DR FE ME MF RB RL RZ 

(P) (M) 



MD MS PIC 



Key 

X = Mutually exclusive 

& = If attribute at top is specified, attribute at right must also be specified. 

= If attribute at top is specified, one of the attributes at right must also be specified. 



Figure 3-8. Field Attribute Chart 



CONTROL THE ASSEMBLY LISTING 

The assembly listing control statements specify headings and spacing for the 
assembly listing. These control statements may be placed before or after any other 
control statement or any instruction in your source program. They have no effect 
on the object code. Use as many of these control statements as you wish to control 
the spacing and headings of your assembly listing. 



.TITLE Control Statement 

TITLE INIT= ; 

The .TITLE control statement specifies the heading to print on each page of the 
assembly listing. The specified title is printed immediately following the program 
name specified by the PNAM parameter of the .START control statement. If the 
.TITLE statement is omitted, only the program name is printed on the listing. You 
can specify more than one title. The first .TITLE statement usually precedes the 
.START statement. The assembler causes the heading specified by the first .TITLE 
statement to be printed on each page. When the assembler encounters another 
.TITLE control statement, it causes the printer to eject to the next page. Then the 
heading specified by the most recent .TITLE statement is printed on the subsequent 
pages. 



A 
D 
H 
F 
N 
S 
V 
W 
X 
Y 

AA 

AD(P) 

AD(M) 

AS 

BC 

BV 

BY 

DR 

FE 

ME 

MF 

RB 

RL 

RZ 

MD 
MS 
PIC 
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Parameter 

Name Description 

IN IT Initialization; a character string of 1 to 32 characters enclosed in 

single quotes. 

Example: 

.TITLE INIT='ASSEMBLER DRIVER'; 

.EJECT Control Statement 

.EJECT ; 

The .EJECT control statement stops the printing of the assembly listing on the 
current page and continues the printing on the next page. Use this statement when- 
ever you wish to skip to a new page. 

Example: 

.EJECT; 

.SPACE Control Statement 

.SPACE [NUMB=] ; 

When the assembler encounters a .SPACE control statement it inserts one or more 
blank lines in the assembly listing. This control statement should be included in the 
source program in each position where you want the assembly listing to leave blank 
lines. 

Parameter 

Name Description 

NUMB Number; the number of blank lines to insert. If the parameter is 

omitted, it defaults to one line. 

Example: 

.SPACE NUMB=4; 



MISCELLANEOUS CONTROL 

The miscellaneous control statements specify a data set to insert into your object 
program, specify the labels of the common function subroutines your program uses, 
and indicate the end of your source program. 
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.INCLUDE Control Statement 

.INCLUDE NAME= ; 

The .INCLUDE control statement allows you to insert source code from another 
data set into your current work file. When the assembler encounters an .INCLUDE 
statement, it stops reading your source data set, goes to the specified data set and 
reads it from beginning to end, then returns to your source data set. The source 
data set that contains the code to insert is not changed. The source file that con- 
tains your source program is not changed. 



Parameter 
Name 

NAME 



Description 

Data set name; the name of data set you wish to insert into the 
current data set. Use the complete data set name, enclosed in 
single quotes. 



Example: 

.INCLUDE NAME='PROG7' ; 

.SELFCHK Control Statement 



.SELFCHK 



MOD= [LABEL= 
DISP= ALTREG- 



FLDLEN= WGTS= CNTL= 

INTAB= OUTTAB= PROD=] 



The .SELFCHK control statement defines the self-check field, the self-check 
register, the modulus, and the algorithm for the self-check function. The assembler 
uses the parameters of the .SELFCHK control statement to set up the self-check 
control area. During program execution, the 5280 uses this control area to gener- 
ate the self-check number during a GSCK or IF . . . CHK operation. 

If you use Standard Modulus 10 or 1 1 , see Choosing Your Algorithm under Self- 
Check in Chapter 2 for a description of the algorithm. If you design your own 
algorithm, see Appendix C for a description of how the .SELFCHK parameters 
define your algorithm. 



Parameter 
Name 

MOD 



LABEL 



Description 

Modulus; specifies the modulus for the self-check algorithm. 
If you design your own algorithm, you may specify a number 
from 2 to 127 and use the other parameters to define the 
algorithm. Or you may specify S10 or S1 1 to use Standard 
Modulus 10 or 11 and omit the remaining parameters. 

Label; specifies the alphameric name you wish to assign to the 
self-check control area. 



FLDLEN 



Field length; the number of bytes in the self-check field. 
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Parameter 
Name 

WGTS 



CNTL 



Description 

Weighting factors; specifies up to 32 bytes of hex digits that act 
as the weights for the algorithm. The value of each byte must 
be less than the value of the modulus. Enter hex 00 in the posi- 
tions of the self-check number, and in all other positions that are 
bypassed. When you use a product table, enter hex 01 in all 
positions except the positions of the self-check number and the 
positions to be bypassed. 

Begin the WGTS parameter in column 1 of a new line, and code 
the complete parameter on the single line. If you use a decimal 
register pair for the self-check register, all 72 positions of the line 
are used, as in the example following the parameter descriptions. 

Control; six positional fields specify how to find the products 
and how to determine the NR (rightmost number) and NL (left- 
most number). The positional fields are separated by commas. 
Any of the six fields may be omitted, but the comma for the 
omitted field must be retained. 



Field 1; if the field 1 entry is omitted and PROD is not specified 
for a product table, each position of the foundation is 
multiplied by the corresonding weight, and the whole 
number products are summed. The sum becomes the 
NR,andNLisO. 

If the field 1 entry is omitted and PROD is specified for 
a product table, the product table repeats every three 
characters. The NR is found by translating each position 
of the foundation through the upper half of the product 
table to find the products, and adding each digit of the 
products. The NL is found by translating each position 
of the foundation through the lower half of the product 
table to find the products, and adding each digit of the 
products. 

D Each position of the foundation is multiplied by the 

corresponding weight, and the unit digits of the products 
are summed. The modulus is usually 10 if this option is 
used. 

U Each position of the foundation is multiplied by the 

corresponding weight, and the unit digits of the products 
are summed. 

F Each position of the foundation is translated through the 

upper half of the product table to a product, and the 
digits of the products are summed to find the NR. To 
find the NL, each position of the foundation is translated 
through the lower half of the product table to a product, 
and each digit of the products are summed. The product 
table repeats every fourth digit. 
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Parameter 

Mom a r)o«<*rintinn 

■ •«••!■«• — — — •• f -— — -• 

CNTL Field 2; If the field 2 entry is omitted, the NL (leftmost self- 

(continued) check number) is forced to zero, and NR (rightmost 

self-check number) is divided by the modulus. 

D The NL is forced to zero, the digits of the NR are 

summed, and the sum is divided by the modulus. 

K The NL and NR are added, and the digits of the sum 

are cross added. The hundreds digit of this sum is 
added to the units digit to equal the NR, and the tens 
digit is added to the carry from NR to equal the NL. 

E For special modulus 8 and 3; the units position of the 

self-check number is converted to modulus 8, and the 
tens position is converted to modulus 3. Field 1 must 
not be omitted, and C cannot be specified in field 3 
for a modulus less than 8. 

Field 3; If the field 3 entry is omitted, the NL and NR remain 
unchanged. 

C The NL and NR are complemented to the 
modulus. 

Field 4; If the Field 4 entry is omitted, it defaults to 1. 

1 One digit is generated or checked. If K is entered 
in Field 2 and an output translate table is used, 
the NL and NR are summed and the sum is trans- 
lated through an output translate table. 

2 Two digits are generated or checked. If E is 
entered in Field 2, the NL is multiplied by 8, the 
product is added to the NR, and the sum is trans- 
lated through an output translate table. 

Field 5; If the Field 5 entry is omitted, the zone portion of NL 
and NR is forced to X'F' to produce the DL (display- 
able leftmost self-check digit) and DR (displayable 
rightmost self-check digit). 

D The NR is used to produce a 2-digit decimal number. 

The units digit is converted to the DR, and the tens 
digit is converted to the DL. 

If the result of this operation exceeds 99, the units 
digit output is correct, and the second digit has a zone 
portion of hex F and a digit portion of hex A-C. 

Field 6; If the Field 6 entry is omitted, all eight bits of each 
byte in the input translate field are used for the input 
translate number. 
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Parameter 
Name 



Description 



CNTL 
(continued) 



DISP 



F Each byte in the input translate field is interpreted as 

two hex digits. The rightmost hex digit becomes the 
input translate character, and the leftmost hex digit 
becomes a shift left count. The positions being trans- 
lated and all higher positions in the register are shifted 
left, with zero fill, the number of positions in the shift 
count when the shifted register contains 16 bytes. All 
unused high-order bytes of the original register are 
bypassed. 

Displacement; specifies the displacement (0-32) of the rightmost 
self-check digit from the leftmost position of the register. It 
defaults to zero. 



If the displacement is zero, the result of a GSCK operation must 
also be zero to pass the IF . . . CK operation. If the displacement 
is 1, and two self-check digits are specified, the leftmost digit 
of the self-check computation must be zero to pass the IF ... CK 
operation. (The leftmost result of the GSCK operation is not 
stored.) 

ALTREG Alternate register; specify a decimal register or register pair that 

contains the weighting factors for the self-check algorithm. If 
ALTREG is specified, the weights specified by the WGTS param- 
eter are ignored. 



INTAB 



Input translate table label; specify the LABEL entry from the 
.DC control statement that defined the table. The input trans- 
late table can translate all foundation characters to specific hex 
characters. If this parameter is omitted, the lower 4 bits of the 
EBCDIC of each foundation position translates to the numerals 
0-9, with A-F translating to 0. 



OUTTAB Output translate table label; specify the LABEL from the .DC 

control statement that defined the table. The value of the self- 
check digit determines the buffer position of the character to be 
inserted into the self-check register. If omitted, the output self- 
check register is not translated. 

If one digit is to be generated and Field 2 specifies K, the NL 
and NR are added and the sum is translated. 

If Field 2 specifies E, the NL is multiplied by 8 and added to NR, 
and the sum is translated. 
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Parameter 
Name 

PROD 



Description 

Product table label; specify the LABEL from the .DC control 
statement that defined the product table. The product table trans- 
lates the rightmost four digits of each byte in the self-check 
register to the product at the corresponding position in the 
product table. If two self-check digits are to be generated, the 
second product is displaced 64 positions from the first product. 
If this parameter is omitted, the products are found by using the 
weights. 

If the Field 2 entry is omitted, or if the Field 1 entry is U, the 
NL is forced to zero. 



Examples: 

.SELFCHK MOD=S1 1; no more parameters needed for Standard Modules 

.SFLFCHK MOD=7 LABEL=SKAREA INTAB=SKINTAB OUTTAB=SKOUTAB 
WGTS=X'06050405030201 050601 030 1 0401 02030405060401 01 0606040X201 01 020300' 

FLDLEN=16CNTL=D,,,1,D; 

.XTRN Control Statement 

.XTRN LABEL= ; 

The .XTRN control statement specifies the labels of the routines or global tables in 
the common function area that your program uses. This control statement reserves all 
specified labels as common function labels. This is a required control statement if any 
calls to the common function area are initiated. See Common Function Routines in 
Chapter 6 for the labels to specify. 



Parameter 
Name 

LABEL 



Example: 



Description 

Label; label of one or more common function routines or data 
areas. You may specify up to 30 labels on each .XTRN statement. 
Labels are separated by a comma. This parameter is mandatory. 



The following statement specifies that the program is using the standard load 
processor, program check error handler, and general I/O error handler. 

.XTRN LABEL= CFLOAD01,CFPGMCHK,CFGIOERR; 
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.END Control Statement 

.END ; 

The .END control statement is mandatory and must be the last control statement of 
every program to specify the end of the source code. There are no parameters for 
the .END statement. All system tables are built when the .END statement is 
processed. If a .SYSTAB control has not caused the system tables to be built in 
another location, the system tables are built at the address in the current location 
counter when the .END control statement is encountered. If a .SYSTAB statement 
has caused the system tables to be located at other addresses, they are built at those 
addresses when the .END statement is encountered. 

Example: 

.END; End of PAYROLS 
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Chapter 4. 5280 Assembler Language Instructions 



Source instructions specify program operations. The 5280 assembler generates 4 
bytes of object code from each source instruction. 

Instructions may be interspersed with certain control statements, according to the 
conventions detailed in Chapter 3. 



INSTRUCTIONS FORMAT 

Each source instruction contains one or more fields; each field is identified by 
the order of its position within the instruction. Blanks, commas, and paren- 
theses separate the fields. Each instruction must be written on a single line, 
between column one and column 72. The format of a source instruction consists 
of an optional symbolic label, the instruction, and an optional comment. 

[Label:] Instruction [;Comment] 



Blanks 



Optional blanks may be placed before and after an equal sign, parenthesis, or 
arithmetic operator. Blanks are not allowed within a field or within a binary 
arithmetic/logical operator. One or more blanks must be used to separate fields if 
no other delimiter is used. 



Symbolic Labels 



A symbolic label is a character string of one to eight characters. The first character 
must be an uppercase alphabetic character (A-Z, $, @, #). The other characters 
may include any uppercase or lowercase character available to your keyboard. 
The label must begin in column 1 and must be followed by a colon (:). 
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The Instruction Fields 

Blanks, commas, and parentheses are used to separate fields, depending upon the 
particular type of instruction. If commas are used to separate optional fields, the 
commas must be retained when fields are omitted that are to the left of fields 
that are specified. The general format of an instruction is: 



r 



Data Movement- 



Result Operator Operands 

where: 

Result specif ies the address that contains the resulting data at the completion 
of the operation. 

Operator may be an arithmetic symbol or a mnemonic to specify the operation. 
Mnemonics may be to the left or to the right of the result, depending upon the 
particular operation. 

Operand may include one or more storage, register, or constant specifications, 
depending upon the particular operation. 

Comments 

A comment may be included on any line following an instruction statement. The 
comment is preceded by a semicolon. An entire line may be specified as a 
comment line by placing an asterisk (*) in the first column of the line. 

Examples: 

LABEL: INSTRUCTION; this is a comment on an instruction line. 

*This whole line is a comment line. 

STORAGE SPECIFICATIONS 

An instruction may refer to a location in storage by specifying one of the following 
addressing methods: 

• Labeled addressing. 

• Base displacement addressing. 

The length of the data area may optionally be specified with either method. 
These addressing methods are described in detail in Chapter 1 under Storage. 

Whenever an instruction description includes the word storage either addressing 
method may be used. If the instruction allows only one of the methods, the 
format of that addressing method is indicated in the instruction description. 
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Labeied Addressing 

A storage area may be declared and labeled by a .DC control statement. An 
instruction may refer to that labeled storage area by specifying the following 
format: 

label [(length)] 

The label is the name assigned to the area by the .DC control statement. If the 
optional length is omitted, it defaults to the length declared in the .DC statement. 
If you want to access a number of bytes that is different from the declared length, 
include the number in parentheses to the right of the label. 



Base Displacement Addressing 

An instruction may refer to a location in storage by using a base displacement 
specification. The format of a base displacement specification is as follows: 

[displacement] ([length] ,BRn) 

The binary register holds the base address. The optional displacement, which may 
be from to 255 and defaults to 0, is added to the base address. The result is 
the address of the first byte of the storage area. The optional length of the area 
defaults to one byte. Except for the IFB instruction and store-a-constant 
instruction (under Store at Base Displacement Address in this chapter), the comma 
is retained if no length is specified. 



CONSTANT SPECIFICATIONS 

Certain instruction operands may be specified as a constant. Constants may be 
specified in the forms described under Blanks, Constants, and Coding Symbols in 
Chapter 1 . A 1-byte constant may be specified in any of the following forms: 

• A decimal number, 0-255 

• Two hexadecimal digits, X'll', where I = 0-9, A-F. 

• Eight binary digits, B'llllllll', where I = Oor 1. 

• One EBCDIC character, CI', where I = any printable graphic. 

The following example demonstrates the way the four forms of constants 
represent the same value: 



Form 


Representation 


Decimal 


193 


Hexadecimal 


X'cr 


Binary 


B'1 1000001' 


EBCDIC 


CA' or 'A' 



Whenever constant is specified in an instruction description, any form of constant 
may be specified in the source instruction. 
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REGISTER AND INDICATOR SPECIFICATIONS 

An instruction may refer to an indicator or a reserved register by specifying the 
indicator or register number (In, BRn, or Rn). Registers may be reserved with the 
RGLT parameter of the .START statement. 

Labels can be assigned to indicators and registers. The control statements that 
assign these labels are discussed in Chapter 1 under Indicators and Registers. If 
an indicator or register has been assigned a label, an instruction may refer to it by 
specifying the label. 

In the instruction descriptions in this chapter, indicators and registers are 
indicated by number specifications. Any time such a number specification is 
indicated either the number or label may be used. 

In certain instructions an optional length may be indicated in a register specifica- 
tion. By indicating the length, in parentheses, to the right of the register 
specification, you can access a binary half register (BRn(1)), a binary double 
register (BRn(4)), or a decimal double register (Rn(32)). 



OPERATION TYPES 

Source instructions are listed in this chapter by the type of operation the 
instruction performs. The instructions are divided into the following operation 
types; 



A 


Arithmetic/Logical 


K 


Keyboard/Display 


B 


Branch and Skip 


M 


Data Movement 


C 


Communications 


P 


Partition Load and Exit 


D 


Diskette 


T 


Table 


E 


Printer 


X 


Miscellaneous 



In Figure 4-1, all mnemonics are listed in alphabetic order. The operation type and 
a brief description of the operation performed are included for each instruction 
mnemonic. 

Figure 4-2 shows the operation types and lists the mnemonics for each type. 



122 



Mnemonic 


Type 


Operation 


+ 


A1 


Decimal add 


- 


A2 


Decimal subtract 


# 


A2 


Decimal multiply 


/ 


A2 


Decimal divide 


+= 


A1 


Binary add 


-= 


A1 


Binary subtract 


*_ 


A1 


Binary multiply 


/= 


A1 


Binary divide 


&= 


A1 


Binary AND 


V= 


A1 


Binary OR 


X= 


A1 


Binary exclusive-OR 


< = > 


M1 


Exchange register data 


ALLOC 


D1 


Allocate diskette 


BINDEC 


M2 


Convert binary storage to EBCDIC 


BINHEX 


M2 


Convert binary to EBCDIC storage 


BRa= 


M1 


Load binary register 


BRn= 


M2 


Convert decimal register to binary 


(,BRn)= 


M1 


Store at base displacement address 


BUZZ 


K2 


Sound buzzer 


CALL 


B2 


Call subroutine 


CALLTB 


B2 


Call subroutine through table 


CLC 


X 


Compare logical characters 


CLICK 


K2 


Click keyboard 


CLOZ 


D1,E 


Close data set 


CNENTR 


K2 


Cancel current ENTR 


CRTMM 


M3 


Move bytes to screen 


DECBIN 


M2 


Convert EBCDIC to binary storage 


DECR 


B6 


Decrement, branch if 


DISPEX 


K2 


Display extra line 


DISPST 


K2 


Display status line 


DUP 


X 


Duplicate a byte 


ENABLE 


K1 


Enable external status 


ENTR 


K1 


Enter data via keyboard 


EXIT 


P 


Exit partition 


GOTAB 


B1 


Branch through table 


GOTO 


B1 


Unconditional branch 


GSCK 


X 


Generate self-check digit 


HEXBIN 


M2 


Convert EBCDIC storage to binary 


IFBRn 


B4 


Branch on relational compare, binary 


IFBRnO 


B3 


Branch if 0, binary 


IF Rn 


B4 


Branch on relational compare, decimal 


IF Rn- 


B3 


Branch if negative 


IF Rn 


B3 


Branch if 0, decimal 


IF Rn AN 


B3 


Branch if positive number 


IF RnCK 


B3 


Branch if self check 


IF RnSN 


B3 


Branch if signed numeric 


IFfmt 


B3 


Branch on format test 


IFB 


B5 


Skip on bit test 


IFC 


B5 


Skip on character test 


IFD Rn 


B4 


Branch on decimal compare 


IFDSI 


B3 


Branch on data set indicator test 



Figure 4-1 (Part 1 of 3). Instruction Mnemonics 
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Mnemonic 


Type 


IFHI 


B5 


IFLO 


B5 


IFH BRn 


B4 


IFI 


B3 


IFIR 


B3 


INIT 


D1 


INSBLK 


D2 


INXEQ 


X 


KACCPT 


K2 


KATTCH 


K2 


KDETCH 


K2 


KERRCL 


K2 


KERRST 


K2 


KEYOP 


K2 


label= 


M1 


LOAD 


P 


MMCRT 


M3 


MOFF 


M3 


MVC 


M3 


MVCR 


M3 


MVCV 


M3 


MVER 


M3 


NOP 


B1 


OPEN 


D1,E 


POSN 


D1 


Ra= 


M1 


Rn= 


M2 


READ 


D2 


READMG 


K2 


REBF 


M3 


REPFLD 


K2 


RESCAL 


K1 


RESMXT 


K1 


RESUME 


K1 


RETEXT 


K1 


RETURN 


B2 


RL 


A1 


RR 


A1 


RST-MG 


K2 


RTIMER 


K2 


RXORW 


B5 


SEARCH 


D3 


SETOFF 


X 


SETON 


X 


SKIP WHILE 


B6 


SL 


A 


SLS 


A2 


SR 


A 


SRAT 


X 


SRR 


A2 


SRS 


A2 



Skip on mask 

Skip on mask 

Branch on immediate data compare 

Branch on indicator test 

Branch on indicator test, and reset 

Initialize diskette labels 

Insert block into data set 

Indirect statement execution 

Accept unformatted keystrokes 

Attach keyboard to partition 

Detach keyboard from partition 

Reset error mode 

Request error mode 

Keyboard operation 

Store at labeled address 

Load partition 

Move from screen to storage 

Move to decimal register offset 

Move storage to storage 

Move storage right to left 

Move storage reverse fill 

Move to corresponding decimal byte 

Null operation 

Open a data set 

Position diskette pointer 

Load decimal register 

Convert/move to decimal register 

Read a data set record 

Read magnetic stripe buffer 

Move data to registers 

Redisplay field on screen 

Resume entry, call subroutine 

Resume entry, enable external status 

Resume entry 

Return and enable external status 

Return from subroutine 

Binary rotate left 

Binary rotate right 

Reset magnetic stripe reader 

Read interval timer 

Exclusive-OR, write 

Search a data set 

Set off bit 

Set on bit 

Loop control 

Shift left, binary or decimal 

Shift left signed, decimal 

Shift right, binary or decimal 

Search resource allocation table 

Shift right and round, decimal 

Shift right signed, decimal 



Figure 4-1 'Psrt 2 of 3). Instruction Mnemonics 
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Mnemonic 


Type 


Operation 


SOFF 


X 


Set indicator off 


SON 


X 


Set indicator on 


SYSLCK 


X 


Lock system 


SYSUNL 


X 


Unlock system 


TBBS 


T3 


Search table, binary 


TBDL 


T2 


Delete table entry 


TBFH 


T3 


Search table for equal or higher 


TBFL 


T3 


Search table for lower entry 


TBFX 


T3 


Search table for equal entry 


TBIN 


T2 


Insert table entry 


TBRD 


T2 


Read table entry 


TBRL 


T2 


Read last table entry 


TBWE 


T2 


Extend table and write entry 


TBWT 


T2 


Write table entry 


TCLOZ 


C 


Close communications data set 


TCTL 


C 


Communications device control 


TINIT 


C 


Initiate communications session 


TLCK 


T1 


Lock shared table 


TOPEN 


C 


Open communications data set 


TRANS 


X 


Translate 


TREAD 


C 


Receive communications record 


TRT 


X 


Translate and test 


TTERM 


C 


Terminate communications 


TUNLCK 


T1 


Unlock shared table 


TWAIT 


C 


Wait for communications I/O 


TWRT 


C 


Transmit communications record 


WAIT 


D1,E 


Wait for I/O completion 


WFMCRT 


M3 


Move data to screen 


WRBF 


M3 


Store register data 


WRT 


D2, E 


Write a data set record 


WRTI 


D2 


Insert data set record 


WRTS 


D2 


Delete data set record 


ZONE 


A2 


Modify decimal register zone 



Figure 4-1 (Part 3 of 3). Instruction Mnemonics 
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A1 



Arithmetic/Logical Binary 



+= 



/= 



&= 


RL 


v= 


RR 


x= 


SL 




SR 



A2 Arithmetic/Logical Decimal 



B1 



B2 



B3 



+ SL 


SR 


SLS 


SRS 


* 


SRR 


/ 


ZONE 


Branch Unconditional 




NOP GOTO 


GOTAI 


Subroutine 




CALL RETURN 


CALL1 


Branch Conditional, Full 




IFBRnO IFRnAN 


IFfmt 


IFRnO IFRnCK 


IFDSI 


IFRn- IFRnSN 


IF! 




IFIR 



B4 



Branch Conditional, Short 



IF Rn 
IFD Rn 



IF BRn 
IFH BRn 



B5 



Skip 



B6 



D1 



IFC IFHI 


RXORV\ 


IFB IFLO 




Loop Control 




SKIP WHILE 


DECR 


Communications 




TINIT TREAD 


TWAIT 


TOPEN TWRT 


TCLOZ 


TCTL 


TTERM 


Diskette Control 




ALLOC CLOZ 


INIT 


OPEN WAIT 


POSN 



Figure 4-2 (Part 1 of 3). Instruction Types 
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D2 



D3 



K1 



M1 



M2 



M3 



T1 



Diskette I/O 




READ WRTS 


WRTI 


WRT 


INSBLK 


Diskette Search 




SEARCH 




Printer Instructions 




OPEN 


WAIT 


WRT 


CLOZ 



Keyboard/Display Key Entry Commands 



ENTR 
ENABLE 



RESUME 
RETEXT 



RESCAL 
RESMXT 



K2 Keyboard/Display Keyboard Operations 



BUZZ 


KACCPT 


KEYOP 


CLICK 


KATTCH 


READMG 


CNENTR 


KDETCH 


RSTMG 


DISPEX 


KERRCL 


REPFLD 


DISPST 


KERRST 


RTIMER 



Load, Store, and Exchange 



BRa= 


label= 


BRa<=> 


Ra= 


(,BRn)= 


Ra<=> 


Convert and Move 




Rn= 


BINHEX 


BINDEC 


BRn= 


HEXBIN 


DECBIN 


Move Bytes 






MOFF 


MVCR 


REBF 


MVER 


MVCV 


WRBF 


MVC 


CRTMM 
MMCRT 


WFMCRT 



Partition Load and Exit 

LOAD EXIT 

Table Control for Shared Tables 

TLCK TUNLCK 



Figure 4-2 (Part 2 of 3). Instruction Types 
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T2 



Table Read and Write 



T3 



X 



TBRD 


TBDL 


TBWE 


TBRL 


TBIN 


TBWT 


Table Search 






TBBS 


TBFH 
TBFL 


TBFX 


Miscellaneous 






CLC 


SETON 


SYSLCK 


DUP 


SETOFF 


SYSUNL 


GSCK 


SON 


TRANS 


INXEQ 


SOFF 


TRT 



SRAT 



Figure 4-2 (Part 3 of 3). Instruction Types 



ASSEMBLY TIME ARITHMETIC 

For instruction operands that require a constant or a label, you can use an 
arithmetic expression, the ADDR function, or the LENG function in your source 
program. You can also change the declared length of an area, or change the data 
type of an area. The assembler makes the specified calculations or changes and 
places the result in the object code instruction. 



Arithmetic Expressions 

An arithmetic expression may be specified for an instruction operand that 
allows a constant or a label of a data area. An expression consisting of 
label ± constant may replace any storage label. An expression consisting of 
label-label may replace any constant. This applies only to the executable 
instruction, and not to the control statements. The only control statement that 
may specify an expression is the .EQUATE statement. 

An arithmetic expression specified in a source instruction is composed of two 
or more terms separated by arithmetic operators. A term may be a constant or a 
data label. Do not use labels that are defined for decimal registers. The label does 
not have to be defined before you use it in the expression. 

Arithmetic operators for add (+) and subtract (-) may be used. Multiplication 
and division are not allowed. The arithmetic operations are performed from 
left to right, upon the constant and the address generated by the label. Do not 
add a label to a label. The result must be dimensionally correct for both a 
valid label and a constant. 
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If you use an expression for an operand that allows a length specification, do 
not put a constant between the label and the length. 

Right: R15=LABL(10)+6; 
Wrong: R15=LABL+6 (10); 

The number of terms must not total over eight for the entire instruction. This 
total includes any terms to the left of the equal sign or within parentheses. 

J 2 _3 45 
5 Terms: BR26(4)+=LABL+2-A 

1 2 3 4 _5 j> 13. 

8 Terms: MVC(BR1(4),BR2,ADDR(LBL1-LBL2)+10) 

An example of using assembly time arithmetic is to find the contents of a 
particular byte within a buffer. The following code declares a 50-byte buffer 
labeled INPUT and uses assembly time arithmetic to find the contents of the 
24th byte. 

.DC LABEL=SCAN TYPE=DEC; set up a decimal register. 
.DC LABEL=INPUT LEN=50; set up the 50 byte storage buffer. 
SCAN = INPUT(1)+23; copy contents of 24th byte into SCAN. 



The ADDR Function 

The ADDR function can be used as an instruction operand in place of any 
constant to specify the address of a register, storage area, instruction, or control 
block. This is a convenient way to load a base address register. The format of 
the ADDR function is: 

(BRn^l 
Rn > [±offset]) 
label J 

If an offset is included for an ADDR specification in an expression, the ADDR 
specification must be the first term in the expression. If the label of a data 
table is used within the ADDR function, the value returned is the index into 
the system table where the address of the data table is stored. The address or 
index returned by the ADDR function is not checked for validity. 

Examples: The following instruction places the declared address of BUFR 
into BR65. 

BR65=ADDR(BUFR); 

The following instruction places the address of the fourth byte of 
BUFTintoBR65. 

BR65=ADDR(BUFR+4); 
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The LENG Function 

The LENG function can be used as an instruction operand to specify the 
declared length of an area. The format of the LENG function is: 

LENG(label) 

An offset cannot be included within the parentheses; however, an expression 
can follow the right parentheses to change the length: 

LENG(label)+4 

Example: The following code moves 'GHIJKL' into the area labeled LABL1. 

DC LABEL=LABL1 INTN'ABCDEF' ; 

DC LABEL-LABL2 INTI='GHIJKLMNO' ; 



BR30 = ADDR(LABL1) 
BR31=ADDR(LABL2) 
MVC(BR30, BR31, LENG(LABL 1)) 



Changing a Declared Length 

In an instruction, you can follow any declared label with a constant enclosed in 
parentheses. The value of the constant supercedes the declared length of the area 
for that instruction. The declared length is not changed in storage. 

Example: The following code loads 'AB' into BR 55. 

.DC LABEL= LABL1 INIT='ABCDEF' ; 



BR55=LABL1(2) 



Changing a Data Type 

Any time you use assembly time arithmetic, you can use any of the types of 
data described in Chapter 2 under Data Types. However, the result of assembly 
time arithmetic is always a constant or a label of a data storage area. This is 
important to remember when using a binary register with assembly time 
arithmetic. Except for a binary register, when you specify a length of 1 in an 
instruction: 

labeld) 
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the first byte of the labeled area is accessed. For a binary register, when you 
specify a length of 1 in an instruction, the second (rightmost) byte of the binary 
register is accessed. However, if you use the label of a binary register with a 
length of 1 with an expression: 

label(1)+0 

the first (leftmost) byte of the binary register is accessed because the result of an 
expression is a data storage area rather than a binary register. 

Examples: The following code shows what is loaded into the binary register 
labeled A for the different specifications. 

DC LABEL=A TYPE=BIN INIT='FFFF' : 
DC LABEL=B TYPE=BIN INIT='1234' ; 
DCLABEL=C LEVL=2 



A = C-2 


A contains 


'OOFF' 


A(1)+0 = B 


A contains 


'34FF' 


A=B 


A contains 


'1234' 


A=B(2) 


A contains 


'1234' 


A = B(1) 


A contains 


'0034' 


A = B(1)+0 


A contains 


'0012' 


A=C 


A contains 


'0012' 


A = C(2) 


A contains 


'1234' 


A = C+1 


A contains 


'0034' 



ARITHMETIC/LOGICAL INSTRUCTIONS 

All arithmetic/logical operations are performed upon binary or decimal registers. 
The 2-byte binary registers contain unsigned binary notation. The 16-byte 
decimal registers contain character or signed numeric data represented in 
EBCDIC notation. Decimal register data is negative if the zone portion of the 
rightmost byte contains a hex D. 



Binary Register Arithmetic/Logical 

Full 2-byte binary registers (BR0-BR127) may be specified in any binary 
arithmetic/logical operation. One byte of a binary register (BRn(D) may be used 
as a storage reference for operands that allow a storage reference. When one 
byte of a binary register is specified, only the rightmost byte is used, and the 
leftmost byte is padded with zeros. A double register (BRn(4) may be specified 
as the result register in double precision add and subtract operations. When a 
double register is specified, the register referred to, and the next sequential 
register, are used in the operation. See Binary Registers under Indicators and 
Registers in Chapter 1 for more information about binary registers. 

When the length of the operand is less than the length of the result register or 
result register pair, the operand is expanded to the left with zeros to the length 
of the result. 
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The format for binary arithmetic/logical instructions is as follows. There must 
be at least one blank between the ODerator and the orjerand. 



Result 



Operator 



Operand 





/= 




BRn [(4)] 


+= 


BRn [(1)] 


- 


constant 


BRn 


&= 






V= 


storage 




1 x= J 





where: 



Result must specify a binary register (BRn). Except for AND, OR, and 
Exclusive-OR, it may be a binary double register (BRn [4] ). When the 
instruction is executed, the contents of the result register are operated upon, 
and the resulting data replaces the original contents of the result register. The 
register specified for result can be specified for the operand. 

Operand may specify a binary register, a binary half register, a constant, or a 
storage location: 



^ (Add) 



Result 



BRa[(4)] 



Operator 



+= 



Operand 



(BRb[(1)] ^1 
constant > 
storage ) 



The data specified by the operand is logically added to the data in the result 
register, and resulting data replaces the original contents of the result register. 

When a binary double register is used as the result register, the operand is added 
to the contents of the specified double register, and the result is right-adjusted 
into the double register. 

Example: 



Before: 



BR27 00000000 00000011 BR28 11111111 11111110 



BR27(4) += 2 



After: 



BR27 00000000 00000100 BR28 00000000 00000000 



132 



— (Subtract) 



Result 



Operator 



BRa[(4)] 



{ 



Operand 

BRb[(1)] 

constant 

storage 



The data specified by the operand is logically subtracted from the contents of 
the result register, and the resulting data replaces the original contents of the 
result register. 

When a binary double register is used for the result register, the operand is 
subtracted from the contents of the specified register and the next sequential 
register. 

Example: 



Before: BRX 00000000 00001000 BRY 00000000 00000100 



BRX-=BRY 



After: 

*= (Multiply ) 
Result 

BRa[(4)] 



BRX 00000000 00000100 BRY 00000000 00000100 



Operator 



Operand 



{BRb ^ 
label J 



The contents of the 2-byte labeled data area specified by the operand are 
logically multiplied with the contents of the result register, and the resulting data 
replaces the original contents of the result register. 

When a binary double register is used as the result register, the operand is 
multiplied by the contents of the leftmost register. The resulting data is right- 
adjusted into the double register. 



/= (Divide) 
Result 

BRa[(4)] 



Operator Operand 

/= 



(BRb 1 
label J 



The data specified by the operand is logically divided into the contents of the 
result register, and the resulting data replaces the original contents of the 
result register. 



5280 Assembler Language Instructions 133 



when a binary double register is used Tor the result register, tne operand is 
logically divided into the contents of the leftmost register, and the resulting 
data replaces the contents of the leftmost register. The remainder replaces the 
original contents of the rightmost register. 



& - (And) 
Result 

BRa 



Operator 



&= 



Operand 



{BRbKDl 1 
constant > 
storage J 



The data specified by the operand is logically ANDed with the contents of the 
result register, and the resulting data replaces the original contents of the result 
register. 

Example: 



Before: BRX 11111111 00000000 BRY 11110000 11110000 



BRX&=BRY 



After: 



BRX 11110000 00000000 BRY 11110000 11110000 



V=(Or) 



Result 



BRa 



Operator 



V= 



Operand 



{BRb[(1)] ^ 
constant I 
storage J 



The data specified by the operand is logically ORed with the contents of the 
result register, and the resulting data replaces the original contents of the result 
register. 

Example: 



Before: BRX 11111111 00000000 BRY 11110000 11110000 



After: 



BRX V= BRY 



BRX 11111111 11110000 BRY 11110000 11110000 
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X= (Exclusive-OR) 

Result Operator 

BRa X= 



Operand 



{BRbtmn 
constant > 
storage J 



The data specified by the operand is exclusively-ORed with the contents of the 
result register, and the resulting data replaces the original contents of the result 
register. 

Example: 



Before: BRX 11111111 00000000 BRY 11110000 11110000 



BRXX=BRY 



After: 



BRX 00001111 11110000 BRY 11110000 11110000 



Binary Register Shift/Rotate 

The contents of a binary register, a labeled storage area, or a binary double 
register (BRn (4)), may be shifted or rotated. Shift operations move the contents 
of the register out of one end of the register and set the bits from which data 
was shifted to zero. Rotate operations move the contents of the register out of 
one end and into the other end of the register. 

The first operand of a shift instruction cannot be an arithmetic expression; 
however, it may be followed by a length in parentheses: 

Right: label(1)SR3 
Wrong: label+1 SR 3 

The format of all shift and rotate operations is as follows. 



Result 



Operator 



Operand 



label (len) 


SL 




BRn 


SR 


1-16 


BRn(1) 


RL 


1-8 


BRn(4) 


RR 


1-32 



where : 



Result is the register (BRn), labeled storage area, or double register (BRn(4)) 
that contains data to be shifted. Upon completion of the operation, the 
resulting shifted data is in the result. The length, whether explicit or implied, 
must be 1 , 2, or 4. 

Operand specifies the number of bits to shift or rotate. The number must be 
greater than the number of bits contained in the result register, labeled area, 
or double register. 
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0/ /o_*_*- /_^*l 
/n_ | nuiaic ici lj 






Result 


Operator 


Oper 


label(len) 






BRa 


RL 


1-16 


BRa(1) 


RL 


1-8 


BRa(4) 


RL 


1-32 



The data in the result register is rotated left the number of bits indicated by the 
operand. Data rotated off the high-order end is moved into the low-order end of the 
register. 

Example: 





I 




^ Before: ,— *— ^ 


BRX RL4 


BRX 


After: r^\ /-^—\ 


BRX 11110000 00001111 


00000000 11111111 


RR (Rotate right, 


1 








Result 


Operator 


Operand 






label(len) 










BRa 


RR 


1-16 






BRa(1) 


RR 


1-8 






BRa(4) 


RR 


1-32 







The data in the result register is rotated right the number of bits indicated by the 
operand. Data rotated off the low-order end of the register is moved into the 
high-order end. 

Example: 



Before: 



After: 



BRX 



10000000 10000000 



BRX(1)RR6 BRX 10000000 00000010 



SL (Shift left) 






Result 


Operator 


Oper 


label(len) 






BRa 


SL 


1-16 


BRa(1) 


SL 


1-8 


BRa(4) 


SL 


1-32 
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The data in the result is shifted left the number of bits indicated by the operand. 
The bits from which data is shifted are set to zero. 

Example: 



Before: r 



BRX |l11 11111 00001111 



These bits are shifted out 
of the register and are lost. 



After: 



BRXSL8 



00001111 00000000 



These bits are 
set to zero. 



SR (Shift right) 



Result 



Operator 



Operand 



label(len) 






BRa 


SR 


1-16 


BRa(1) 


SR 


1-8 


BRa(4) 


SR 


1-32 



The data in the result is shifted right the number of bits indicated by the operand. 
The bits from which data was shifted are set to zero. 

Example: 



BR45 



BR45 



11111111 00000000 



Before: 

BR46 



^~ 



11111111 11111111 



00001111 11110000 



BR45(4) SR 4 
After: 
BR46 



These bits are shifted out of 
the register and are lost. 



00001111 11111111 



These bits are set to zero. 



Decimal Register Arithmetic 

A decimal register (R0-R239) may be specified for any arithmetic operation. A 
decimal double register (Rn (32)) may be specified for the double precision 
multiply and divide operations. When a decimal double register is specified, the 
contents of the specified register and the next sequential decimal register are 
used in the operation. See Decimal Registers under Indicators and Registers in 
Chapter 1 for more information about decimal registers. 

Decimal data can be positive or negative. The data is negative if the rightmost 
byte of the register or register pair has a hex D in the zone portion of the rightmost 
byte. Zones of the other register bytes are not checked to determine if the digit 
portions contain valid numeric data. If a register contains nonnumeric data, the 
operation proceeds with unpredictable results. 
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When a decimal register is altered, any leading blanks (hex 40) are changed to 
zeros 'FQK When a zero results from a calculation, the zero is stored as positive 
(hex F0) in a decimal register. 

The format of decimal arithmetic instructions is as follows. All data that is 
allowed for the operands is indicated. 



Result 



Operandi 



Operator 



Operand2 



Ra 



Ra[(32)] 



Ra 



■(E) : 

■a • 



Rb[(32)] 



Ra 
Rb 
Re 
0-9 



{"•.} 



where: 



Result indicates a decimal register or, for double precision multiply, a decimal 
double register, into which the result of the operation is placed. If the result is 
positive, all zones contain a hex F; if the result is negative, the zone of the 
rightmost byte contains a hex D, and all other zones contain hex F. 

Operandi specifies the data that is operated upon. A decimal register that 
holds operandi may be specified. Except for divide, it may be the same 
decimal register that is specified as the result register. Except for divide, the 
contents of the register are unchanged by the operation unless it is the same 
register as the result register. Except for divide, operandi may be a single- 
digit constant (0-9). If operandi is a constant, operand2 must be a register. 

For divide operations, operandi must specify a decimal register or decimal 
double register that holds the operandi data; it must not be the same 
register as the one specified for the result register. Upon completion of the 
operation, the remainder of the divide operation is placed into the register or 
double register specified for operandi . The original contents of the register 
are lost. 

Operand2 specifies data to operate upon the operandi data. A decimal register 
that holds operand2 may be specified. If operandi is not a constant, 
operand2 may be a single-digit constant. For divide, the constant may be 
one to nine; for all other operations the constant may be zero to nine. For 
add and subtract, operand2 may specify the same decimal register that is also 
specified as operandi . The operand2 data remains unchanged by the operation 
unless it is the decimal register that is also specified as the result register. 
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+ (Add) 

Result 

Ra = 




Operator 




Operand2 is algebraically added to operandi , and the sum is placed in the decimal 
register specified as result. 

If a carry results out of the high-order position of the result register, the decimal 
arithmetic overflow indicator (1124) is set on. 



- (Subtract) 
Result 



Ra = 



Operandi 

Ra 

{=} 



Operator 



Operand2 

Ra 

{"} 

I 0-9 J 



Operand2 is algebraically subtracted from operandi and the remainder is placed 
into the decimal register specified as result. 



/(Divide) 



Result 

Ra = 



Operandi 

Rb[(32)] 



Operator 

I 



Operand2 



{"'.} 



The contents of the register or register pair specified by operandi are divided by 
operand2. The quotient is placed into the decimal register specified as result, and 
the remainder is placed into the decimal register or register pair specified for 
operandi . The result register must not be the same register as specified for 
operandi or operand2. 

Both operandi and operand 2 are signed quantities; if they have the same sign 
the result is positive, and if they have opposite signs the result is negative. The 
remainder retains the sign of the original contents of the operandi register. 
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Division by zero is invalid and causes the decimal arithmetic overflow (1124) 
and the divide error (!120) indicators to be set on. !f an error occurs during a 
double precision divide, the result register is unchanged. 



Before: 



After: 



00 01 



Zone 








F 


F 


F 


F 


Digit 




















AVERA 


GE = 




Zone 








F 


F 


F 


F 


Digit 














3 


2 


TOTAL 


= 32 




Zone 








F 


F 


F 


D 


Digit 

















5 



12 13 14 15 AVERAGE = TOTAL /LAST 



The contents of TOTAL are divided 
by the contents of LAST. Because 
the two signs are opposite, the result 
register will contain a minus sign 
(D-zone in the units position). The 
register TOTAL will retain the 
original sign and will hold the 
remainder to the division. The 
register LAST remains unchanged. 





00 


01 




12 


13 


14 


15 


Zone 








F 


F 


F 


D 


Digit 

















6 


AVERAGE = -6 


Zone 








F 


F 


F 


F 


Digit 

















2 


TOTAL 


= 2 


Zone 








F 


F 


F 


F 


Digit 

















5 



LAST = -5 



LAST = -5 



(Multiply) 
Result 



Operandi 



Operator 



Operand2 



Ra[(32)] = 



Rb 
0-9 



0-9 
Rb 



Operandi is algebraically multiplied by operand2 and the product is stored in the 
decimal register(s) specified as result. Neither operandi nor operand2 may be 
specified as the result register. 

If a carry results out of the high order position of result, both the decimal arith- 
metic overflow (1124) and the multiply overflow (1123) indicators are set on. 
The low-order product is preserved. 

Examples: 

WAGES = HRS* RATE 

The contents of the decimal registers addressed by the labels HRS and RATE are 
multiplied and the product is placed into the decimal register WAGES. The 
contents of HRS and RATE remain unchanged by the operation. 

TOTAL(32) = QUANTY * ITEM$ 

The contents of the decimal registers addressed by the labels QUANTY and 
ITEM$ are multiplied and the product is placed in the decimal register pair 
addressed by the label TOTAL. The contents of QUANTY and ITEM$ remain 
unchanged by the operation. 
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Decimal Register Shift 

The contents of a decimal register can be shifted to the left or right. Any data 
shifted out of one end of a decimal register is lost. Bytes from which data is 
shifted are filled with zeros or blanks, depending upon the particular shift 
instruction. 

The format of decimal register shift instructions is as follows. 



Result 



Operandi 



Operator 



Operand 2 



Ra = 



Is) 



SL 

SLS 

SR 

SRS 

SRR 



1 115 J 



where : 



Result indicates a decimal register into which the shifted results of the 
operation is placed. If the zone of the rightmost byte contains a hex D, the 
contents of the register are negative. 

Operandi indicates a decimal register which holds the data to be shifted. The 
contents of this register are not changed unless it is the same register as the 
one specified for result. 

Operand2 indicates the number of bytes to shift the operandi data. 
Operand2 may be a constant (1-15) or a decimal register that contains the 
shift count. 

If operand2 specifies a register, a single-digit shift count (decimal 1-9) is 
determined from the digit portion of the low-order position of the register. A 
shift count of hex 1-F may be accomplished by setting the digit portion of 
the low-order position of the decimal register to a binary number. This is 
done by overlaying the rightmost 2 bytes of the decimal register with a binary 
register, then loading the binary register with the hex shift count. This can be 
done only in decimal registers that are located within the area of overlapped 
storage that can also contain binary registers (R0-R14). See the .DC control 
statement description in Chapter 3 for information about overlaying registers. 
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SL Shift Left, Blank Fill 



Result 



Ra = 



Operandi 



{::} 



Operator 



SL 



Operand2 



P 



The bytes of the operandi register are shifted left the number of bytes 
indicated by operand2, and the shifted result is placed into the result register. 

The low-order positions of the shift result contain the blank character (hex 40) 
for the number of positions shifted. If a negative number is shifted left, the 
D-zone is shifted left out of the units position. Therefore, the register no longer 
contains a negative number. 



SLS Shift Left, Zero Fill and Retain Sign 



Result 



Ra = 



Operandi 



{::} 



Operator 



SLS 



Operand2 



a 



The bytes of the operandi register are shifted left the number of bytes 
indicated by operand2, and the shifted result is placed into the result register. 
The low-order bytes of the shifted result contain zeros (hex F0) for the number 
of positions shifted. If a negative number is shifted left, the units position of 
the result register retains the D-zone. 

Example: 



Before: 



RX= RXSLS2 



After: 



7^ 



RX 



FFFFFFFFFFFFFFFD 
0000000123456789 



RX 



FFFFFFFFFFFFFFFD 
0000012345678900 



RX contains-00000001 23456789 RX contains -0000012345678900 



SR (Shift 1 to Blank Decimal Register) 



Result 

Rn = 



Operandi 

1 



Operator 

SR 



Operand2 
1 



The bytes are shifted as though operandi were a decimal register with decimal 1 
in the rightmost byte, and bytes to 14 were blanks. The rightmost byte is 
shifted out of the register so the register contains only blanks. These blanks 
replace the contents of the result register. 

This is the quickest way to blank a decimal register 
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SR (Shift Right, Pad Blank) 



Result 



Ra = 



Operandi 



IrbJ 



Operator 



SR 



Operand2 



D 

ll 15j 



The bytes of the operandi register are shifted right the number of bytes 
indicated by operand2, and the shifted result is placed into the result register. 
The high-order bytes of the shifted result contain blanks (hex 40) for the 
number of characters shifted. If a negative number is shifted right, the D-zone 
is shifted out of the register and the register contents are no longer negative. 

Example: 



Before: 



RX 



FFFFFFFFFFFFFFFD 
0123456789000000 



RX=RXSR 1 

| After 

RX 



RX contains -0123456789000000 



4FFFFFFFFFFFFFFF 
0012345678900000 



RX contains +0012345678900000 



SRS (Shift Right and Retain Sign) 
Result Operandi 



Ra 



a 



Operator 



SRS 



Operand2 



n 

L 1-15 J 



The bytes of the operandi register are shifted right the number of bytes 
indicated by operand2, and the shifted result is placed into the result register. 
The high-order bytes of the result register contain zero (hex F0) for the number 
of bytes shifted. Any blanks present are shifted without change. If the unshifted 
contents of the operandi register contained a negative value, the result register 
contains a hex D in the zone portion of the rightmost byte. All other zones 
remain unchanged. 

Example: 



Before: 



RX 



FFFFFFFFFFFFFFFD 
1230000000000000 



RX=RXSRS4 
RX 



After: 



FFFFFFFFFFFFFFFD 
0000123000000000 



RX contains -1230000000000000 RX contains -0000123000000000 
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SRR Shift Right, Retain Sign, and Round 



Result 



Ra = 



Operandi 



a 



Operator 



SRR 



Operand2 



{:;) 



The bytes of the operandi register are shifted right the number bytes indicated 
by operand2, and the shifted result is placed into the result register. The high- 
order bytes of the shifted result contains zeros (hex FO) for the number of 
positions shifted, and the units position of the shifted number retains the zone of 
the original contents of the operandi register. The result is rounded by adding 
5 of like sign to the last byte shifted out of the right end of the result register 
(the shift -count-minus-1 position). 

Example: 



RX= RXSRR4 
Before: /- JL^ 



RX 



FFFFFFFFFFFFFFFF 
0000000000136790 



i. 



After: 



RX 



FFFFFFFFFFFFFFFF 
0000000000000014 



■add 5 to round 



Decimal Register Zone Modification 

The zone portions of decimal register bytes can be modified. One or more 
zones can be changed to a specified hex character. 

The format for the zone modification instruction is as follows: 



Operator 

ZONE 



Result 



(Ra, 



Operand 



{» 



Offset 



Length 



[X'0-F\ 1-16]) 

where: 

Result indicates the decimal register (Ra) that has zones to modify. 

Operand specif ies the hex character, or the decimal register that contains 
the hex character, that replaces the zones of the specified bytes in the 
result register. If a decimal register is specified, the character in the zone 
portion of the rightmost byte is used. 

Offset specifies the number of bytes (0-15), from the leftmost byte of the 
register, to be skipped before zone modification begins. Offset defaults to zero. 

Length indicates the number of bytes (1-16) to modify. Length defaults to 
1 byte. 
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The bytes of the decimal result register (Ra) are modified, starting at the byte 
specified by offset and continuing to the right for the number of bytes specified 
by length. The hex character specified by the operand replaces the original zone 
of each byte specified. If the offset plus length exceeds 16 bytes, the bytes of 
the next register are also modified. 

Example: 



Before: REGX 



44FFFFFFFFFFFFFF 
0000000002433534 



REG X=00000002433534 



t: 



x. 



1 

ZONE(REGX,X'4',2,7) 



After: 



REGX 



444444444FFFFFFF 
0000000002433534 



REGX=2433534 



BRANCH AND SKIP INSTRUCTIONS 

Unconditional branch, conditional branch, subroutine calls, and skip operations 
alter the sequential execution of a program. Unconditional branching instructions 
include normal branching, indexed branching, and branching through a table. 
Subroutine calls include normal calls, indexed calls, and calls through a label 
table. Skip operations include a constant compare, a mask test, a bit test, and a 
numeric test. The numeric test is useful for loop control. 

Conditional branching instructions are divided into two types, full branches and 
short branches. A short branch compares two operands for a specified relational 
condition, such as greater than or equal. A branch can be made to another 
instruction within +128 or -126 instructions from the short branch instruction. 
Full branches can branch to an address anywhere within the current partition. 
A full branch tests an operand against a specified condition or value. 



Unconditional Branch 

Unconditional branch instructions consist of a mnemonic and, in most cases, 
an operand. Unconditional branches include branches through a table, indexed 
branches, and indexed branches through a table. By using a table or index, you 
have a greater capacity to manipulate the flow of your program to best accom- 
plish your particular application. 

The format of unconditional branch instructions is as follows: 



Mnemonic 



Operand 



NOP 
GOTO 

GOTAB 



(label fdisp 1 1 
BRn [,\labelj ] J 



BRn,label 
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Operand specifies the address of the instruction to which the branch is made. 

A binary register (BRn) may be included in the operand. This register may 
hold the address of the instruction to which to branch, or it may act as an 
index register for an indexed branch or a branch through a label table. 
BRO must not be used. 



NOP (Null Operation) 

Mnemonic 

NOP 

The NOP instruction is used as a space filler and performs a branch to the next 
sequential instruction. There are no operands for this instruction. 

GOTO (Unconditional Branch) 



Mnemonic 


Operand 






' label 


GOTO 


< 


BRn 

BRnJabel 
k BRn,disp d 



The labeled statement at the operand label is the next statement executed, unless 
the optional binary register is included with the label. In that case, the contents 
of BRn are added to the address of the instruction with the indicated label, and 
the result is taken as the address of the next instruction to execute. 

If a binary register is coded with no label, a branch is made to the address in 
the binary register. This address should be on a 4-byte boundary. 

No registers, indicators, or storage areas are changed. 

Note: The resulting address is not checked for validity unless indexing is used. 

GOTAB (Unconditional Branch Through Table) 

Mnemonic Operand 

GOTAB Brn .label 

The operand label specifies the label of a label table defined in a .LABTAB 
control statement. The contents of BRn are taken as the index into the label 
table specified. The address stored at that entry position is taken as the address 
of the next instruction to be executed. The first table index is 0. 

No registers or storage areas are changed. 
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Subroutine Call and Return 

A subroutine call consists of a mnemonic and an operand. You can make an 
indexed call or a call through a label table. You can call a subroutine that is 
stored within the current partition, or you can call a common function routine 
that is stored in the common functions area. If you call any routines that are 
stored in the common functions area, you must specify the routine labels in an 
.XTRN control statement in your source program. 

A subroutine return consists of a mnemonic. Optionally, you can include an 
operand to make an indexed return. There are special return operations for 
keyboard/display external status subroutines. These external status returns are 
discussed under Key Entry Instructions in this chapter. 

The format for subroutine calls and returns is as follows: 



Mnemonic Operand 




' label 


CALL 


BRn 
BRn,label 




BRn,disp 


RETURN 


[(BRn)] 


CALLTB 


BRn.label 



where: 

Operand specifies the subroutine to call or the return address, as follows: 

Entry Description 

label The label of a subroutine. 

BRn A binary register used to hold an index or address. 

disp May be specified with a binary register for a call to a base dis- 

placement address. 

CALL (Subroutine Call) 



Mnemonic 



CALL 



Operand 



label 

BRn,label 
BRn,disp 
BRn 
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When a call instruction is encountered, the address of the next sequential 
instruction is stored in the subroutine stack at the addressed specified by BR18. 
BR18 is then incremented by 2. 

A call is made to the instruction specified by the operand. If a label is specified 
without the optional binary register, the call is made to the instruction at the 
label specified. 

If a label is specified with a binary register, the contents of the register are 
added to the address of the specified label, and the call is made to the resulting 
address. 

If a displacement is specified with a binary register, the displacement is added 
to the address contained in the binary register, and the call is made to the 
resulting address. 

If a binary register is specified with no label and no displacement, the call is 
taken to the address in the binary register. This address should be on a 4-byte 
boundary. 

After the call, the instructions of the called subroutine are executed sequentially 
until the subroutine is terminated. 



RETURN (Subroutine Return) 

Mnemonic Operand 

RETURN [(BRn)] 

When a return statement is encountered in a subroutine, the subroutine is 
terminated and BR 18 is decremented by two. If no operand is included in the 
instruction, the next statement to be executed is the statement at the address in 
the partition stack location pointed to by BR18. 

If a binary register is included in the instruction, the contents of the binary 
register, which must be a multiple of four, are added to the address in the 
partition stack location pointed to by BR18. The result is the address of the 
next statement to be executed. If the resulting address is not on a 4-byte 
boundary, a program check error (hex 03) results. 

Example, Normal Call: 

COMP1: TALY = TALY + 3 ; Subroutine start 



COMPX: RETURN ; Subroutine end 



SUB1: CALLCOMP1 ; Call subroutine COMP1 

ADDC: TALY = XY + X 
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When the instruction SUB1 executes, the absolute address of ADDC is placed 
in the partition stack at the address specified by BR 18, and a branch is made to 
the subroutine at the label COMP1 . The statements following COMP1 are 
executed until the RETURN at statement COMPX is encountered. At this time 
the address of ADDC is taken from the partition stack at the address specified 
by BR18, and the next statement to be executed is ADDC. 

Example, Indexed Call: 

BR28 = X'08' 

CALL BR28,RTN6 

RTN6: X = X + Y; assume start RTN6 at address X'0670' 



RTN7: X = Y; assume start RTN7 at address X'0678' 

When the instruction CALL BR28, RTN6 is executed, the branch is made to 
RTN7. 



CALLTB (Subroutine Call Through Table) 
Mnemonic Operand 



CALLTB 



BRn, label 



The label specified is the label of a label table defined in a .LABTAB control 
statement. The contents of the binary register (Brn) are used as an index into 
the table. The index is the entry number, not the byte displacement. The 
address at the table entry indicated by the binary register is the address of the 
next statement to execute. If BRn contains 0, the first entry position is used. 



Example: 



BR 28 00000000 00000011 



RTNTAB 





1 


X'0850' 


X'0754' 


X'0790' 




3 


X'0820' 


4 


X'0696' 



Index Argument 

The instruction CALLTB BR28,RTNTAB would call the subroutine whose first 
instruction begins at address hex 0790. 
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Full Conditional Branch on Test 

A full conditional branch tests an operand against a specified condition. If the 
operand meets the condition, a branch is made to a specified branch label. The 
branch label can indicate an instruction at any location in the current partition. 

The format of a full conditional branch instruction is as follows. All types of 
data allowed for the operand and condition is indicated for each mnemonic. 



Mnemonic Operand 



IF 



IF 



IF 



BRn 



Rn 



fmt 



Condition 



I NOT J 



Branch 



GOTO label 



I notV 

n 

[not J 



IFDSI 


dsin,dsn 


(IS ] 


IFI 


In 




IFIR 


In 


[notJ 


where: 

Operand specifies the data to be tested 



AN 
CK 
SN 



GOTO label 



FMT GOTO label 



ON 



GOTO label 
GOTO label 
GOTO label 



Condition includes the keyword IS or NOT (but not both), and the condition 
keyword. The condition keywords are explained in the individual operation 
descriptions. 

Branch includes the mnemonic GOTO, and the label of the statement to 
which a branch is made if the operand meets the specified condition. 



IF BRn (Test Binary Register for Zero) 
Mnemonic Operand Condition 

IF BRn 



( IS )o 
\notj 



Branch 

GOTO label 



If the condition specifies IS, and the register specified for operand contains all 
zeros, a branch is made to the label. Otherwise, the next sequential statement is 
executed. 
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If the condition specifies NOT, and the register specified for operand contains 
some value other than zero, a branch is made to the label. If the register contains 
zero, the next sequential statement is executed. 

A 1-byte half register is not allowed in this operation. 

No registers, storage areas, or indicators are changed. 

IF Rn (Test Decimal Register) 

Mnemonic Operand Condition Branch 



IF Rn 



f.s 1 

^NOTJ 





AN 
CK 
SN 



GOTO label 



The contents of the decimal register specified as the operand are tested against 
the specified condition. Decimal register bytes are tested from left to right. 

If the condition specifies IS, and the condition is met, a branch is made to the 
instruction specified by label. If the condition is not met, the next sequential 
instruction is executed. 

If the condition specifies NOT, and the condition is met, the next sequential 
instruction is executed. If the condition is not met, a branch is made to the 
instruction specified by the label. 

The decimal register test conditions include: 

Entry Description 

The condition is met if the decimal register bytes contain only blanks 

or zeros. 

The condition is met if the units position (rightmost byte) of the 
decimal register contains a hex D in the zone portion. 

AN As for SN, except the zone of the rightmost byte must contain hex 

F unless the register contains all blanks. 

CK The condition is met if the decimal register bytes contain data that 

includes a self-check digit, and the self -check digit is verified as 
correct by the self-check algorithm. 

SN The condition is met if the decimal register bytes contain all 

blanks. It is also met if the decimal register bytes contain leading 
blanks followed by one or more valid numbers (hex F0-F9) and the 
rightmost byte contains either a hex F or a hex D in the zone 
portion. It is also met if the decimal register bytes contain all valid 
numbers (hex F0-F9) and the rightmost byte contains either a 
hex F or a hex D in the zone portion. 
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Example: 



RX 



FFFFFFFFFFFFFFFF 
0000000000000170 



RY 



FFFFFFFFFFFFFFFD 
0000000000000355 



RZ 



44444444444444 FF 
0000000000000078 



The instruction 
The instruction 
The instruction 

The instruction 



IF RX IS GOTO LOOPX results in no branch. 

I F R Y NOT - GOTO LOOPX results in no branch. 

IF RY NOT AN GOTO LOOPX results in a branch to 

LOOPX. 

I F RZ IS SN GOTO LOOPX results in a branch to 

LOOPX. 



The instruction IF RZ NOT CK GOTO ERR5 results in a branch to ERR5 if 
the self-check digit is incorrect when verified against the self-check algorithm. If 
the self-check digit is correct, the next instruction statement is executed. 



IF fmt (Test Format Number) 
Mnemonic Operand 

IF fmt 



Condition 



\notJ 



FMT 



Branch 
GOTO label 



The format specified by the operand is tested against the format used in the last 
I/O instruction. It may be used to determine what format was used in a data 
directed READ. 

For the operand, specify the LABEL parameter from the .FMST control 
statement that set up the desired format. 

If the condition specifies IS, and the format specified for operand is the same as 
the format used in the last I/O instruction, a branch is made to the instruction at 
label. Otherwise, the next sequential instruction is executed. 

If the condition specifies NOT, and the format specified for operand is not the 
same as the format used in the last I/O instruction, a branch is made to the 
instruction at label. 

Example: 

IF FORMAT6 IS FMT GOTO LOOPX 

This instruction results in a branch to LOOPX if the last format used for an 
I/O operation was FORMAT6. 
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IFDSI (Test Data Set Indicator) 

Mnemonic Operand Condition Branch 



(not 



IFDSI dsin.dsn I.. \ ON GOTO label 



} 



The data set status indicator specified by the operand is tested against the 
specified condition. The operand entry includes the data set status indicator 
number (dsin), a comma, and the data set number (dsn). The entry for the data 
set number is the DSN parameter of the .DATASET control statement that 
defined the data set you wish to use. The entry for data set status indicator is a 
number from 0-15. If you specify a number from to 7, it represents bits 0-7 
of the status byte (byte hex 00) of the data set IOB. If you specify a number from 
8 to 15, it represents bits 0-7 of the data set flag byte (byte hex 13) of the 
data set IOB. See the Functions Reference Manual for a description of these bits. 

Example: 

IFDSI 8,3 IS ON GOTO LOOP 

This instruction results in a branch if bit 8 of the 10B status byte (byte hex 00) 
of data set 3 contains a B'1 '; this bit is 1 if the data set is open. 



IF/ (Test Indicator) 

Mnemonic Operand Condition Branch 



\notj 



IFI In iNOTl ON GOTOIabel 

The indicator specified by the operand is tested against the condition IS ON or 
NOT ON. If the indicator meets the condition, a branch is made to label. 
Otherwise, the next sequential statement is executed. 

Examples: 

IFI I96 NOT ON GOTO LOOP 

This instruction results in a branch if I96 contains B'0'; it results in no branch if 
1 96 contains BT. 

IFI I77 IS ON GOTO LOOP 

This instruction results in a branch if I77 contains B'1'; it results in no branch if 
I77 contains B'0'. 



5280 Assembler Language Instructions 153 



IFIR (Test Indicator and Reset) 

Mnemonic Operand Condition Branch 



IFIR 



\notJ 



ON GOTO label 



The indicator specified by the operand is tested against the condition IS ON or 
NOT ON. If the indicator meets the condition, a branch is made to label. The 
indicator is set to off (B'O') after the test is completed, regardless of the result 
of the test. 

Examples: 

I97 = B'1'I98=B'0' 

IFIR 1197 IS ON GOTO LOOP 
This instruction results in a branch, and I97 is reset to B'O'. 

IFIR I98 NOT ON GOTO LOOP 
This instruction results in a branch, and I98 remains B'O'. 



Short Conditional Branch on Relational Compare 

A short conditional branch operation compares two operands for a specified 
relation condition. Except for the IFD instruction, both the zone and digit 
portions of the bytes are compared. Therefore, a hex 40 (blank) will not equal a 
hex F0 (zero). If the result of the relational compare is true, a branch is made to 
the instruction specified by the label. If the result is not true, the next sequential 
statement is executed. The label must specify an instruction within +128 or -127 
instructions from the short branch instruction. 

The format of a short branch instruction is as follows. All types of data that 
are allowed for the mnemonics and operands are indicated. 



Mnemonic Operandi 



IF 



w 



IFH 



BRa 



Ra 



BRn 



Operator 

EQ 
GE 

GT 

LE 
LT 
NE 



Operand2 



BRb 



{M 



constant 



Branch 

GOTO label 
GOTO label 

GOTO label 
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where: 

Operandi specifies the register which contains the data to be compared. 

Operator must be one of the following: 

Operator Meaning 

EQ Branch 

if operandi is equal to operand2. 

GE Branch 

if operandi is equal to or greater than operand2. 

GT Branch 

if operandi is greater than operand2. 

LE Branch 

if operandi is less than or equal to operand2. 

LT Branch 

if operandi is less than operand2. 

NE Branch 

if operandi is not equal to operand2. 

0perand2 specif ies the register or constant which will be compared against 
operandi. 

Branch is always the mnemonic GOTO and a label. The label specifies an 
instruction, which must be within +128 or -127 instructions from the branch 
instruction. A branch is made to this instruction if the specified relational 
condition is true. 



IF BRa (Binary Register Relational Compare) 
Mnemonic Operandi Operator 



EQ 
GE 
GT 
LE 
LT 
NE 



IF 



BRa 



Operand2 



Bb 



Branch 



GOTO label 



The contents of the operandi register are compared to the contents of the 
operand2 register. A branch is made to the label if the relational compare is 
true. Otherwise, the next sequential statement is executed. 

No registers, data areas, or indicators are changed. 



5280 Assembler Language Instructions 155 



Examples: 



BREG 11110011 11110100 CNTR 11110000 11110000 



BREG contains X'F3F4' 



CNTR contains X'FOFO' 



The instruction IF BREG EQ CNTR GOTO LOOP4 results in no branch. 

The instruction IF BREG GE CNTR GOTO LOOP4 results in a branch to LOOP4. 



IF Ra (Decimal Register Relational Compare) 
Mnemonic Operandi Operator 



EQ 
GE 
GT 
LE 
LT 
NE 



IF 



Ra 



Operand2 Branch 



{»} 



GOTO label 



The contents of the operandi register are compared against operand2 for the 
condition specified by the relational operator. If the result of the relational 
compare is true, a branch is made to the instruction specified by the label. 
Otherwise, the next sequential statement is executed. 

If operand2 is a register (Rb), the corresponding positions of the operandi and 
operand2 registers are compared byte for byte, starting at the high order position 
of each register. The standard EBCDIC collating sequence is used. 

If operand2 is a constant (0-9), the contents of the operandi register are 
compared against fifteen leading blanks with the specified constant in the rightmost 
byte of the register. The leading blanks cannot be successfully compared with 
zeros. 

No registers, data areas, or indicators are changed. 

Note: You should use the IFD instruction when comparing decimal data. IFD 
does not compare the zone portions of the bytes. This avoids problems resulting 
from comparing blanks (hex 40) to zeros (hex F0). 

Examples: 



REG1 



FFFF 
1111 



REG2 



FFFF 
2222 



REG3 



FFFF 
0007 



The instruction IF REG1 NE REG2 GOTO LOOPX results in a branch to 
LOOPX. 
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The instruction IF REG3 EQ7 GOTO LOOPX results in no branch. This is 
because the leading zeros of REG3 are compared against leading blanks 
associated with the constant 7, and hex FO does not equal hex 40. 



IFD Rn (Decimal Register Relational Compare to Decimal) 

Mnemonic Operandi Operator Operand2 



IFD 



Ra 



EQ 
GE 
GT 
LE 
LT 
NE 



{-') 



Branch 



GOTO label 



The contents of the operandi register are algebraically compared to operand2 for 
the condition specified by the relational operator. If the result of the comparison is 
true, a branch is made to the instruction specified by the label. Otherwise the 
next sequential statement is executed. 

If the zone portion of the rightmost byte of a decimal register contains hex D, 
the contents of the register are negative. If it is not hex D, the contents of the 
register are positive. 

If operand2 is another decimal register (Rb), the digit portion of each corresponding 
byte of the two registers and the zone portion of the rightmost byte of each 
register are compared. 

If operand2 is a constant, the contents of the operandi decimal register are 
compared against 1 5 leading blanks and the specified single-digit constant. The 
constant is assumed to be a positive value. 



IFH BRn (Binary Register Relational Compare to Immediate Data) 



Mnemonic Operandi 



IFH 



BRa 



Operator 



EQ 
GE 
GT 
LE 
LT 
NE 



Operand2 



0-255 
X'O-FF' 



Branch 



GOTO label 



The rightmost byte of the binary register specified as operandi is compared 
against the binary representation of the constant specified by operand2. A 
branch is made to the instruction specified by the label if the result of the 
comparison is true. Otherwise, the next sequential instruction is executed. 

No registers, indicators, or data areas are changed. 
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Examples: 

Only this byte is compared. 



BR EG [00000000 11110011] 

The instruction IFH BR EG EQ X'F3' GOTO LOOPX results in a branch to 
LOOPX. 

The instruction IFH BREG GE X'F4' GOTO LOOPX results in no branch. 



Skip on Constant Compare 

The contents of a specified byte are compared with a 1-byte constant. 
The format for a constant compare skip instruction is as follows: 
Mnemonic Test Condition 



IFC 



[offset,] label IS 
[offset,] Rn NOT 



Operand 


Result 


constant 


SKIP 


constant 


SKIP 



IFB [displ(BRn) IS 

where: 

Test specifies the byte that holds data to compare with the constant, as 
follows. 

[offset J label specifies the label of a storage area. If the storage area is 
longer than one byte, you may specify an optional offset. The offset 
specifies the offset from the first byte of the storage area where the byte is 
located. Offset defaults to 0, which specif ies the first (leftmost) byte of the 
data area. 

[offset,] Rn specifies a decimal register (Rn) and the offset (0-15) from 
the leftmost byte of the register where the byte is located. For example, 
7,RX indicates byte 7 of the decimal register labeled RX. The offset is 
optional and defaults to zero, which specifies the leftmost byte of the 
register. If the test register is a decimal register, the operand must be a 
decimal register. 

[dispj (BRn) specifies the base displacement address of the storage byte. 
The binary register holds the base address. The displacement (0-255) is 
optional and defaults to zero. A base displacement address is valid only 
for the IFB mnemonic. 

Note: Do not specify length for this base displacement address. Do not 
precede the binary register with a comma, as is required for other base 
displacement addresses. 
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Condition specifies how the test byte is compared, as follows. 

Entry Description 

IS Specifies that a skip takes place if the contents of the test 

byte equal the specified constant. 

NOT Specifies that a skip takes place if the contents of the test 

byte do not equal the specified constant. This is valid only for 
the IFC mnemonic. 

Operand specif ies a 1-byte constant, as described near the beginning of this 
chapter under Constant Specif ications. 



IFC (Skip on Constant Compare) 

Mnemonic Test Condition 



IFC 



{[offset,] label 1 f IS 1 
[offset,] Rn J | NOT J 



Operand Result 

constant SKIP 



The contents of the byte specified by test are compared against the specified 
constant. If IS is coded, and the test byte equals the constant, the next sequential 
statement is skipped. If NOT is coded, and the contents of the test byte do not 
equal the constant, the next sequential instruction is skipped. Otherwise the next 
sequential instruction is executed. 

Example: The following code initializes a decimal register to contain fifteen 
bytes of zeros and one byte of hex FF. Hex data is right-justified into a decimal 
register, so byte 15 of the decimal register contains the hex constant. 



REG 



000102 03 04 050607 08 091011 12131415 



FFFFFFFFFFFFFFFF 
000000000000000F 



.DC 


LABEL = REG TYPE = DEC INIT = 


X'FF' 




STMT1 


IFC 15,REGNOT 


X'FF' 


SKIP 




STMT2 is not skipped 


STMT2 


IFC 14,REG IS 


X'FO' 


SKIP 




STMT3 is skipped 


STMT3 


IFC 15,REG IS 


X'FF' 


SKIP 




not executed 


STMT4 


IFC 1,REG NOT 


X'FF' 


SKIP 




STMT5 is skipped 


STMT5 


REG = 








STMT6 


IFC 15,REGNOT 


X'FO' 


SKIP 




STMT7 is skipped 
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IFB (Base Displacement Skip on Constant Compare) 

Mnemonic Test Condition Operand Result 

IFB [disp](BRn) IS constant SKIP 

The displacement is added to the base address contained in the binary register. 
The contents of the byte at the resulting address are compared to the 1-byte 
constant specified by operand. If the contents of the byte are equal to the 
constant, the next sequential instruction is skipped. If the contents of the byte 
are not equal to the constant, the next sequential instruction is executed. It is 
invalid to specify NOT for the condition. 

Skip on Bit Mask 

The contents of a 1-byte base displacement address are masked with a 1-byte 
constant. The format for a bit mask instruction is as follows: 

Mnemonic Test Condition Operand Result 

IFB [displ(BRn) <™A X ' M ' SKIP 



fON 
| OFF 



} 



where : 



Test specif ies a base displacement address of a storage byte. The binary 
register holds the base address. The displacement (0-255) is optional and 
defaults to zero. 

Note: Do not specify length for this base displacement address. Do not 
precede the binary register with a comma as is required for other base 
displacement addresses. 

Condition indicates how the bits in the test byte that are specified by the 
mask are tested. 

Entry Description 

ON Specifies that a skip takes place if any of the masked bits are 

on(B'V). 

OFF Specifies that a skip takes place if any of the masked bits are 

off (B'O'). 

Operand specifies the 1-byte mask that specifies which bits of the test byte 
are tested. 

Result is always the mnemonic SKIP. 

The contents of the byte at the base displacement address are masked with the 
1-byte operand. The bits that correspond with the bits in the mask that are on 
(B'1 ') are tested against the specified condition. If one or more of these bits 
meets the specified condition (ON or OFF), the skip results. Otherwise, the 
next sequential instruction is executed. 
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Skip on AND/Exclusive-OR Mask 

This mask test can perform logical operations upon one byte of a binary register. 
The format for an AIMD,Exclusive-OR mask test instruction is as follows: 
Test Mnemonic Maskl Operand Mask2 Result 



IFHI 
IFLO 



BRn AND 



X'M' 



IS 



X'M' 



SKIP 



where: 



Test specifies the byte of the binary register to operate upon. It includes a 
binary register (BRn) and either IFHI to specify the high-order byte of the 
binary register, or IFLO to specify the low-order byte. 

Maskl, Mask 2 are 1-byte constants to mask with the test byte. See Constant 
Specifications near the beginning of this chapter for the forms of the constants 
that may be used. 

Operand is always IS. 

Result is always the mnemonic SKIP. 

The byte that is accessed depends on the test entry. Coding I FHI BRn indicates 
the high order byte of the specified binary register (BRn). Coding IFLO BRn 
indicates the low-order byte of the specified binary register (BRn). The original 
contents of the binary register remain unchanged by the operation. 

The contents of the indicated byte are logically ANDed with maskl, and the 
result is exclusively-ORed with mask2. If the result of the operation is zero, 
the next sequential instruction is skipped. Otherwise the next sequential 
instruction is executed. 

Examples: 



High 



Low 



BRX 01011100 11110000 



IFHI BRX AND X'B4' IS X'14' SKIP 



01011100^ 
~& 10110100 
00010100 
X 00010100 -^ 
00000000 

This instruction results in a skip. 



IFLO BRX AND X'8A' IS X'CF' SKIP 
I 



— 11110000 

& 10001010 

10000000 

X 1100111H 

01001111 

This instruction does not result in a skip. 
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Exclusive-OR Write, Skip on AND Mask 

The following instruction specifies that two logical operations be performed 
upon the same data. These operations can change the original contents of a 
specified byte; they can also test the original contents to determine if a skip 
should take place. This instruction is useful to test and set/reset lock bits with a 
single instruction. 

The format of the instruction is as follows: 

Mnemonic Maskl Test Mask2 

RXORW (constant ,BRn .constant) 

where: 

Maskl specifies a 1-byte constant to be exclusively-ORed with the contents of 
the test byte. See Constant Specifications near the beginning of this chapter 
for the forms that the constant may have. 

Test specifies a binary register that contains the address of the byte to test. 

Mask 2 specifies a 1-byte constant to be ANDed with the contents of the test 
byte. The constant may be expressed in any of the forms indicated for maskl . 

The 1-byte constant specified by maskl is exclusively-ORed with the contents of 
the test byte at the address indicated by the binary register. The original contents 
of the test byte are ANDed with mask2. If the result of the AND operation is 0, 
a skip results. The result of the exclusive-OR operation replaces the original 
contents of the test byte. If the result of the AND operation is not 0, the next 
sequential instruction is executed, and the original contents of the test byte 
remain unchanged. 

Loop Control 

Loop control can be performed with the following two instructions, which 
decrement or increment a binary register, then test the register contents against 
zero or a specified limit. 

The format of the loop control instructions is as follows: 

Mnemonic Test Condition Limit Operand 

SKIP WHILE BRa LE BRb [STEP 0-255] 

DECR BRn GOTO label 



162 



where: 

Test indicates the binary register that is decremented or incremented. 

Condition is specified only for SKIP WHILE, and is always LE. 

Limit is specified only for SKIP WHILE, and indicates the limit that is 
compared with the test register. 

Operand is always specified for DECR, to indicate a branch label. It is 
optional for SKIP WHILE, to indicate the value of the increment to add to the 
test register. If it is not specified, the register is incremented by one. 

SKIP WHILE (Increment Binary Register and Skip if Not Limit) 

Mnemonic Test Condition Limit Operand 

SKIP WHILE BRa LE BRb [STEP 0=255] 

When this instruction is executed, an increment is added to the contents of the 
test binary register (BRa), and the sum replaces the contents of the test binary 
register (BRa). The new contents of the test register (BRa) are then compared 
with the contents of the limit register (BRb). If the contents of the test register 
(BRa) are lower than or equal to the limit register (BRb), the next sequential 
instruction is skipped. 

If the optional increment operand (STEP n) is coded, the contents of the test 
register are incremented by n, where n is 0-255. If STEP n is not coded, the 
test register is incremented by one. 

Example: The following code sums the integers from 1 to 10 using SKIP WHILE 
as the loop control. 



.DC LABEL=SUM TYPE=BIN I NIT=0; set up register for sum 

.DC LABEL=NUM TYPE=BIN IN IT=0; set up register for integers 

* 

.DC LABEL=LMT TYPE=BIN INIT=10; set loop limit to 10 

LOOP1: SKIP WHILE NUM LE LMT STEP 1; 

* Add 1 to NUM and test for 10. 

* When NUM is greater than LMT, EXIT1 EXECUTES. 
EXIT1: GOTO OUT: 

SUM += NUM ; add next integer. 

GOTO LOOP1 ; continue loop. 

OUT: NOP ; NUM = 1 1 and SUM = 55. 
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DECR (Decrement Binary Register and Branch If Not 0) 

Mnemonic Operand Branch 

DECR BRn GOTO label 

The contents of the binary register are first decremented by 1 every time this 
instruction is executed, and then the decremented result is tested against 0. If the 
register contents are not 0, a branch is made to the statement at label. 

Example: 

X#1 : BREG = B'1 1 '; initialize BRn to loop 3 times 
LOOP: 



ENDL: DECR BREG TO LOOP; decrement BRn by one, 
* if BRn is not zero after decrement, branch to LOOP. 
X#2: REGX=REGX + 1 

The statement labeled X#1 sets BREG to 3, then the statements from LOOP to 
ENDL are executed 3 times. The third time ENDL is executed, BREG will contain 
and the statement labeled X#2 will be the next statement executed. 



COMMUNICATIONS INSTRUCTIONS 

The 5280 communications facilities include a communications access method that 
provides an interface between your 5280 assembler application program and the 
host system. The communications access method can support either BSC (binary 
synchronous communication) or SDLC (synchronous data link control). SDLC is 
provided through SNA (Standard Network Architecture) and is referred to in this 
manual as SNA. The following communications instructions and the .COMM 
control statement described in Chapter 3 are used with the 5280 communications 
access method. See the IBM 5280 Communications Utilities Reference Manual, 
SC34-0247, for more information about the communications access method. 
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Most of the communications instructions are used for both the BSC and the SNA 
versions of the communications access method. Any instruction or instruction 
parameter that is unique to either the BSC or SNA versions is so indicated. The 
format for the communications instructions is as follows: 



Mnemonic 


Data Set 


TINIT 


[1-15) 


TCTL 


1-15 


TOPEN 


1-15) 


TWAIT 


1-15) 


TCLOZ 


1-15) 


TTERM 


1-15) 


TREAD 


1-15 


TWRT 


1-15 



Format 



Operandi Operand2 Operand3 



[,X'IIII' 



[ ' \ label/ 



[.label 



•W 






,D]) 



-]) 



,B] 



where : 



Data set specifies the data set to access. Enter the DSN parameter of the 
.COMM control statement that defined the data set. 

Format indicates edit formatting you want during an input or output 
operation. Format may be omitted (retain the comma) if no edit formatting 
is desired. If you want formatting, specify one of the following: 

Entry Description 

label The label of the edit format you wish to use. Enter the 

LABEL parameter of the .FMTST control statement that 
started the edit format definition. 

* May be specified for a TREAD instruction to indicate data 

directed formatting. Data Directed Formatting, in Chapter 2, 
and the .FMTST control statement writeup describe this method 
of format selection. 

Operandi depends upon the particular instruction and is explained with the 
operand description for each instruction. 

Operand2 specif ies overlapped (0) or nonoverlapped (N) I/O. It defaults to 
nonoverlapped. See Overlapped 1 70 in Chapter 1 for more information. 

Operand3 depends upon the particular instruction and is explained with the 
operand description for each instruction. 
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Mnemonic Data Set 

TINIT (1-15) 

For BSC and for SNA, this must be the first communications instruction in your 
application program. The TINIT operation must be completed before an I/O 
instruction can be executed. For BSC, this instruction must be followed by a 
TOPEN instruction. 

For BSC, the TINIT instruction establishes the linkage between the COMM IOB 
and your program, which is executing in a partition, and the communications 
access method, which is concurrently executing in another partition. When this 
instruction is executed, it prepares to establish the line connection between the 
5280 and the host system. 

For SNA, this instruction initializes the network by establishing the data link 
and attaching a session. If log-on is required by the host system, the communica- 
tions IOB must point to a logical buffer that contains the log-on data when the 
TINIT instruction is issued. See the IBM 5280 Communications Utilities 
Reference Manual, for information about communications sessions. Multiple 
sessions may be established. 



TOPEN (Open Communications Data Set) 
Mnemonic Data Set 

TOPEN (1-15) 

This instruction opens the specified BSC communications data set IOB for 
transmitting or receiving records, or for inquiry. This instruction must be issued 
before any TREAD, TWRT, or TCTL instructions are issued. The TOPEN 
instruction must always be followed, at any later point in your program, with 
a TCLOZ instruction for the same data set. 

TCTL (Communications Control) 

Mnemonic Data Set Operandi Operand2 Operand3 



TCTL (1-15 [.X'llir , < „> ,D] 



■{:) 
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Operandi specifies a hex code for one of the following control operations: 

Hex 

Code Operations Valid for BSC 

0100 Write status 

0300 Transmit EOT (The EOT function is used only to initiate the 

premature termination of a transmit or receive operation.) 

0400 Transmit RVI (The RVI function turns the line around.) 

0500 Transmit header (SOH-heading-STX) 

0600 Transmit header (SOH-heading-ETB) 

0700 Transmit header (SOH-heading-ITB) 

0800 Transmit header (SOH-heading-STX-ETX) 

0900 Execute wrap test 

0A00 Transmit online test message 

0B00 Receive online test message 

0001 Set compression (Expand blank-compressed data that is received.) 

0002 Reset compression (Do not expand compressed data.) 

0003 Set transparent mode (Transmit in transparent mode.) 

0004 Reset transparent mode (Do not transmit in transparent mode.) 

0005 Set trace (on) 

0006 Reset trace (off) 

Operations Valid for SNA 

0001 Cancel 

0002 Chase 

0003 LU status 

0004 Request shutdown 

0005 Positive response 

0006 Negative response 

0007 Transmit signal command (SIGNAL) to the host 

0008 Shutdown complete 

If D is specified for operand3, the diagnostic flag is set in the IOB, and the operation 
is performed in diagnostic mode. 



TW AIT (Wait for I/O Completion) 
Mnemonic Data Set 

TWAIT (1-15) 

For BSC and for SNA, this instruction ensures that any transmit or receive 
operation is completed before the next sequential instruction is executed. This 
is generally used in conjunction with overlapped I/O to prevent loss of data. See 
Overlapped I/O in Chapter 1 for more information. 
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TCLOZ (Close Communications Data Set) 
Mnemonic Data Set 
TCLOZ (1-15) 

This instruction closes the specified BSC communications data set I OB, and 
signifies the end of the communications operations. Any IOB that is opened 
(using TOPEN) must be closed (using TCLOZ) before another IOB is opened. 

TTERM (Terminate Communications Session) 

Mnemonic Data Set 

TTERM (1-15) 

For BSC and SNA, this instruction terminates the logical connection between 
your application program and the communications access method. If a switched 
line is being used, the line connection with the host is also terminated. 

The communications access method remains in the background partition, 
available for use by other application programs. 

TREAD (Receive Communications Record) 

Mnemonic Data Set Format Operandi Operand2 Operand3 

TREAD (1-15 [.['J .- .{£} .-]) 

When the TREAD instruction is executed, data is received from the host 
system into the I/O buffer of the data set specified by the data set number. If 
an edit format is indicated with a format label or the asterisk (for data directed 
formatting), the data is edited and moved from the I/O buffer to the registers 
as specified in the appropriate edit format. If no edit format is specified in the 
instruction, the data remains in the I/O buffer at the end of the operation. If 
is specified for operand2, successive instructions are executed concurrently with 
the TREAD instruction. If operand2 specifies N or is omitted, the TREAD 
operation must be completed before any successive instructions are executed. 

For SNA and for BSC, if operandi is a minus sign, it indicates that the status is 
to be received. If operandi is omitted, it indicates that data is to be received. 

For SNA and for BSC, if operand3 is a minus sign, it indicates that an entire 
block of data is to be received. If operand3 is omitted, the next logical record 
is received. 
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TWRT (Transmit Communications Record) 

Mnemonic Data Set Format Operandi Operand2 Operand3 



.{:} - 



TWRT (1-15 Uabel ,F , < _ > ,B] ) 



When the TWRT instruction is executed, a record is transmitted to the host system 
from the data set specified by the data set number. If the instruction specifies 
an edit format, data is moved from the registers specified by the format into the 
I/O buffer, and editing is performed as specified in the format. If no format is 
specified, it is assumed that the record is already in the I/O buffer. The record is 
transmitted from the I/O buffer. If operand2 is 0, successive instructions are 
executed concurrently with the TWRT instruction. If operand2 is N or is omitted, 
the TWRT instruction must be completed before successive instructions are executed. 

For SNA, if operandi is F, it indicates that this is the final record to be trans- 
mitted in an interactive application. Otherwise operandi is omitted. For BSC, 
operandi must be omitted. Retain the comma. 

For SNA and for BSC, if operand3 is B, it indicates that the I/O buffer is to be 
filled with blanks at the start of the operation. If operand3 is omitted, the I/O 
buffer is not changed at the start of the operation. This operand may be 
specified only for a formatted TWRT operation. 

Example: The following code sets up a BSC data set with the .COMM statement. 
It then initializes a BSC communications session, transmits one data record, 
receives one data record, and terminates the session. 

.START ENTRY=INIT; 

.DC LABEL=LBUFR LEN=80; logical buffer for transmit data set 

.DC LABEL=DATAR LEN=1 32; logical buffer for receive data set 

.COMM CAM=BSC DSN=1 RECL-80 LBUF=LBUFR ELAB=ERR 

TYPE=SW; set up a write sequential transmit data set IOB 
.COMM CAM=BSC DSN=2 RECL=132 LBUF=DATAR ELAB=ERR 

TYPE=SR; set up a read sequential receive data set IOB 
.INIT TINITO); initialize session with host 

TOPENd ); open transmit data set IOB 

* Code to move data 

* to the logical buffer LBUFR 

* must be included here. 

TWRT(1); transmit a record from LBUFR 

TCLOZO); close transmit data set IOB 

TTERMO); 

TINIT(2); 

TOPEN(2); open receive data set IOB 

TREAD(2); receive a record into DATR 

* Code to move data from 

* the logical buffer DATAR 

* must be included here. 

TCLOZ(2); close receive data set IOB 

TTERMO); terminate session with host 
ERR: ; error routine. 

.END; 
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DISKETTE INSTRUCTIONS 

The diskette instructions include operations to control, read/write, and search 
a data set. The operations are performed upon data set records or, for label 
update data sets, upon data set labels. Data set labels on diskette index 
cylinders describe each data set that is stored on the diskette. Information 
contained on the data set label includes the data set name, the exchange type, 
and the diskette addresses of the BOE (beginning of extent), EOD (end of data), 
and EOE (end of extent) for that data set. The data set label will be described in 
detail in the Functions Reference Manual. 

Records may be organized into sequential or key indexed data sets. The records 
are moved between the diskette and a physical buffer in main storage. Logical 
records may optionally be moved between the physical buffer and a logical 
record buffer for blocking and deblocking records, or printer I/O can be used to 
block and deblock records. See Diskette Data Management in Chapter 2 for a 
description of the data set organizations and buffers. 

During the execution of a diskette operation, the 5280 maintains a record 
counter to keep track of the record number, relative to the first data set 
record, of the logical record currently being processed. 



Control Operations 

In order to share the diskette devices with the different data sets, the 5280 
maintains an 106 chain for each drive. An IOB chain begins with a pointer, in 
the system control area, which holds the address of the first IOB that uses the 
device. This IOB in turn holds the address of the next IOB that uses the device. 
When the device finishes the work described by one IOB, it goes to the next IOB 
on the IOB chain. An IOB address is placed on the IOB chain whenever a data 
set is opened with the OPEN operation. When the data set has finished using 
the device, it may be closed with the CLOZ operation, which removes the IOB 
address from the IOB chain. 

Besides the open and close operations, data set control includes instructions to 
allocate a data set and to initialize diskettes. 
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The format for the data set control instructions is as follows: 
Mnemonic Data Set Operands 



ALLOC 


(1-15 


,, 


BRn) 


OPEN 


(1-15 


LBRn 


CLOZ 


(1-15 [, « 


E 
D 


- F 






N 


u 


WAIT 


[(1-15)] 


,BRn) 


INIT 


(1-15 








BOE 


POSN 


(1-15 


< 


EOD 

CURR 

LAST 



]) 



Cj, {^.BHn 



]) 



<Q 



where: 



Data Set specifies the data set number. This is the DSN parameter of the 
.DATASET control statement that set up the IOB for this data set. If data 
set is specified as hex in the WAIT instruction, it specifies the keyboard 
rather than a data set. Do not specify for any other control operation. 

Operands are explained for each instruction in the operation description. 



ALLOC (Allocate a Data Set) 



Mnemonic Data Set 



ALLOC 



(1-15 



Operand 



„BRn) 



This instruction is always executed nonoverlapped. When the ALLOC operation is 
executed, the data set is allocated in the physical space following the last valid 
data set existing on the diskette, provided sufficient extent and label space 
exists. A data set cannot be allocated between existing data sets and always 
originates on a physical track/sector boundary. 

The data set HDR1 label is placed in the first deleted HDR1 label space. If 
there are no deleted HDR1 label spaces, the allocation cannot take place, and an 
external status (3229) is presented. The HDR1 information is taken from the 
data set IOB and from a parameter string you prepare and place into storage. The 
binary register (BRn) in the ALLOC instruction contains the address of the fifth 
byte of the parameter string. Two commas must precede the binary register. The 
format of the parameter string is as follows. 
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Byte Meaning 

1 Data set exchange type. Enter the number that corresponds to the 

appropriate exchange type: 

X'OO' = basic exchange 

X'01'= H exchange 

X'02'= I exchange (This is the type normally used) 

X'03' = E exchange, unblocked and unspanned 

X'04' = E exchange, blocked and unspanned 

X'05'= E exchange, blocked and spanned 

2-4 The number of logical records to allocate. Enter to allocate the 

maximum number of records that can be placed on the remaining 
diskette space. 

5 The first of up to 14 characters of an optional owner identification, 

required for allocating on a secure diskette. The address stored in 
the binary register always points to the first byte of this owner ID. 
If the owner ID is omitted, the address points to the end blank. 

end The last byte in the parameter string must always be a blank, hex 40. 

Note: This parameter string can also be used to open a data set on a secure 
diskette; the OPEN instruction does not use the bytes before the fifth byte. 

The information that is taken from the data set IOB is as follows: 



Parameter 

Data set name (NAME) 



Explanation 

The data set name is mandatory for allocating a 
diskette data set. 



Logical record length (RECL) 



Block size (BSIZ) 



If this optional .DATASET parameter is 
omitted, the length is set to equal to block size. 

Except for blocked and spanned data sets, the 
block size must equal, or be a multiple of, the 
logical record length. For blocked and spanned 
data sets, BSIZ is an optional parameter; if 
specified it must equal sector size, and if 
omitted the 5280 sets it to sector size. 



Delete character (DFLG) 



F or E and I exchange data sets, this character is 
checked, during allocation, for a valid printable 
character. Valid delete characters are A-Z, 0-9, or 
one of the following symbols: 

.,-/%#@:$& 
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During the allocation operation, the data set organization byte of the HDR1 label 
is set to blank (hex 40) for basic and H exchange data sets. It is set to D for E and 
I exchange data sets. It is invalid to allocate a label update data set with the 
ALLOC instruction. 

Upon completion of the ALLOC operation, the allocated data set is also opened. 
The HDR1 label is placed into the first 128 bytes of the physical buffer. The 
opcode byte in the data set I OB is replaced with hex 00. Upon completion of 
the ALLOC; or if there is an external status for (1 ) insufficient physical buffer 
size (3430), (2) two physical buffers specified with unequal sizes (3435); or if 
a 3730 warning message is presented the minimum number of 128-byte blocks 
required for sufficient buffer size space is placed into hex 78 of the data set IOB. 
If any other external status occurs, this number is not placed into the IOB. 



OPEN (Open a Data Set) 

Mnemonic Data Set Operand 

OPEN (1-15 LBRn]) 

The OPEN operation is always executed in nonoverlapped mode. When the OPEN 
is executed, the 5280 searches the diskette index for the HDR1 label of the 
specified data set. The search begins at the position indicated by the data set 
IOB at hex 30 and 31 . The assembler initializes this value to zero, which causes 
the search to begin with the first HDR1 label. If you know where your data 
set HDR1 label is stored, you can place the position number (the first HDR1 
label is at number 8) in the data set IOB to save time when the data set is 
opened. If the position number in the IOB is greater than 8, the search begins 
with that position and continues until the desired data set HDR1 label is found 
or until the last label is searched. No labels preceding the position number in 
the IOB are searched. If the desired HDR1 label is not found, or if the position 
number is greater than the number of HDR1 labels existing on the diskette, an 
external status (3215) is presented. When the 5280 finds the label, it places the 
label number in bytes hex 30 and 31 of the data set IOB. On subsequent 
OPENs, the search begins with this number unless you reset these bytes to zero. 

If the data set is stored on a secure diskette, you must include the binary register 
(BRn) in the OPEN instruction. The binary register contains the address of an 
owner identification, as described for the ALLOC instruction. If you include 
the binary register and the diskette is not a secure diskette, the binary register 
is ignored. Two commas must precede the binary register. 

When the desired HDR1 label is found, the expiration date is checked. If the 
date is all blanks, the data set is expired. If it is all 9s, the data set is not 
expired. If the HDR1 expiration data contains a year value less than 50, the year 
is assumed to be in the 21st century. If a system date is available and exceeds 
the HDR1 label date, the data set is expired. An unexpired data set cannot be 
opened as an erase data set. 
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The physical buffer is checked to ensure adequate buffer size. If there is an 
external status for (1) insufficient size (3430) or (2) two physical buffers 
specified with unequal sizes (3435), the OPEN is not completed and the 
minimum number of 128-byte blocks required for sufficient buffer space is 
placed into hex 78 of the data set I OB. If enough space is available for the 
OPEN to complete, another check is made to ensure that sufficient buffer 
space is available to process the data set. If a keyed data set does not have 
sufficient buffer space to process the index table build, the OPEN does not 
complete. If a sequential data set does not have sufficient buffer space to 
process the data set, the OPEN completes but the minimum number of 128-byte 
blocks required for sufficient buffer space is placed into hex 78 of the data set 
IOB, and a 3730 warning message is presented. 

If the block size and logical record length are not specified in the data set IOB, 
the HDR1 values are used. If they are specified in the IOB, they are compared 
with the HDR1 values and an error results if they are not the same. 

For an erase data set, the block size and record length on the HDR1 label are 
updated to the values in the IOB if the IOB values are not zero. If no logical 
record length is specified, it is assumed to be the same as the block size. 

When the open completes, the address of the data set IOB is placed into the 
IOB chain for the device. The open-flag in the data set IOB is set to indicate 
that the data set is open. The HDR1 label is placed into the first 128 bytes of 
the physical buffer (in PB1 if two physical buffers are used). For a label 
update data set, however, the VOL1 label is placed into the buffer in place of 
the HDR1 label. 

The OPEN instruction must be used to open a data set during program 
execution, or to reopen a data set. If you reopen a data set, the data set 
pointers are reset to the beginning of the data set and the parameters specified 
in the .DATASET control statement are used to supply the open information. 



CLOZ (Close a Data Set) 

Mnemonic Data Set Operands 



CLOZ (1-15 



'R A 
E 
D 
N 



{!}{?} •{?}-> 



A CLOZ operation removes the data set IOB address from the IOB chain and 
resets the open-flag in the data set IOB. The CLOZ operation is always executed 
in nonoverlapped mode. If any records have been added to the data set, the 
HDR1 label is updated as appropriate. Any functions specified in the operand 
fields are performed. When the CLOZ operation is completed, even if external 
status is presented, the opcode in the data set IOB is reset to zero. 
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The operand fields indicate close options. You may specify one option in 
each of five fields, or you may leave any of the fields blank. If you omit a 
field that is to the left of a specified field, retain the comma for the omitted 
field. If you omit all the fields, a normal close as described above is performed, 
with no additional functions. The operand fields are as follows. 

Field 1: Close functions option. If omitted, a normal close is performed. You 
may not specify R, E, or D for a shared or unexpired data set. 

Entry Description 

R Release; the EOE is replaced with the EOD-1 value to free unused 

extent space. 

E Erase; the EOD is replaced with the BOE value to create a new output- 

only data set. 

D Delete; the data set label is marked as deleted. 

N No label update; the IOB address is removed from the IOB chain and 

the IOB open-flag is reset, but the HDR1 label is not updated. 

Field 2: Write-protect option. If omitted, the contents of the write-protect 
position in the HDR1 label remain unchanged. 

Entry Description 

P Protect; a P is placed into the write-protect position so the data set 

does not accept any write operations. 

W Write; clears the P from the HDR1 label so the data set can accept 

writes. 

Field 3: Verify /copy option. If omitted, the contents of the verify /copy 
position on the HDR1 label remains unchanged. 

Entry Description 

V Verified; a V is placed into the verify /copy position of the HDR1 

label to indicate that the data set has been verified. 

C Copy; a C is placed into the verify /copy position to indicate that the 

contents of the data set have been successfully transferred. Do not 
enter the C for a partial data set copy or for a null data set. 

* Clear; the contents of the verify /copy position are replaced with a 

blank. 
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Field 4: Multivolume option. If omitted, the contents of the multivolume 
fields are left unchanged. Field 5 must also be omitted. 

Entry Description 

C Continued; a C is placed into the multivolume position to indicate that 

the data set is continued on another diskette. 

L Last; an L is placed into the multivolume position to indicate that 

this is the last diskette on which a continued data set is stored. 

* Clear; the contents of the fields are replaced with blanks. 

BRn may be specified if field 4 is spacified. The binary register contains the 
sequence number for this volume of a multivolume data set. The contents of 
this register are placed into the HDR1 label in the volume sequence position. 
You may specify a sequence number from 01 to 99. 

If an error occurs during a CLOZ, the IOB is not removed from the chain. 
Overwriting the IOB by loading another program would break the chain. 
However, if two consecutive CLOZ commands are issued (even if they contain 
close options) that cause errors, the IOB address is removed from the IOB chain 
but the HDR1 label is not updated and no optional functions are performed. 

Another use for the two consecutive CLOZ instructions is to close a data set 
that has been interrupted by accidental opening of the diskette door. If a 
data set is being processed when the diskette door is opened, the diskette drive 
makes a buzzing sound for five seconds and a 31 51 error is reported. If no I/O 
operation was taking place when the door was opened, you may simply close 
the door and reset the error. The 5280 assumes that the data set is the same one 
being processed before the door opened. However, if an I/O operation was in 
the process of moving data between the physical buffer and the diskette, the 
data movement is terminated but the data set is not closed; a 3251 error is 
reported. Two consecutive CLOZ instructions remove the IOB address from the 
IOB chain. You may close an unopened or undefined data set with no effect. 



WAIT (Wait for I/O Completion) 
Mnemonic Data Set 

WAIT [(1-15)] 

The WAIT instruction is used when you are processing with overlapped I/O. 
When the 5280 encounters an overlapped I/O instruction, it issues the I/O 
operation to the appropriate device and immediately proceeds to execute 
subsequent instructions. If a subsequent instruction accesses data that was 
involved in an overlapped I/O operation, you should place a WAIT instruction 
immediately before that instruction. When the 5280 encounters the WAIT 
instruction, it waits until all outstanding I/O operations for the specified data 
set are completed before it executes the instructions following the WAIT. It 
also detects any errors that occurred during the I/O. 
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If the WAIT instruction specifies hex for the data set, the 5280 waits until 
all outstanding keyboard I/O operations are completed. If the WAIT instruction 
omits the data set number, all I/O operations for all data sets must be completed 
before the 5280 proceeds with the instructions following the WAIT. 



INIT (Initialize a Diskette) 

Mnemonic Data Set Operand 

INIT (1-15 ,BRn) 

The INIT operation initializes the diskette with information from the IOB of 
the specified data set. The data set must have been previously opened for 
initialization (TYPE=INI on the . D AT ASET control statement). The diskette 
may not be shared during an initialization operation. All data on the diskette 
prior to the INIT is lost. 

The binary register (BRn) contains the address of a parameter string you have 
prepared and placed into storage. The format of the parameter string is as 
follows. 

Byte Bit Meaning 

1 Head number 
1-7 Track number 

2 0-1 00 for type 1 

01 for type 2 
1 1 for type 2D 
2-7 Number minus one of 128-byte blocks that make up the 

sector size. 
3-28 Sequence of sector numbers. If byte 3 = hex FF, the track 

specified by byte 1 is flagged as a defective track. 

Each track is accessed as a separate data set. The physical sector IDs and records 
are written to the track. The data set is accessed sequentially, starting at cylinder 
0, head 0, sector 1 . Each track must be initialized with the INIT instruction 
before it can accept a write instruction. You must use instructions to write the 
HDR1 labels for the index area. 



POSN (Position Record Pointer) 

Mnemonic Data Set Operandi Operand2 



POSN (1-15 



BOE 
CURR 
LAST 
EOD 



'{:} 
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When the POSN operation is executed, the current record pointer number is 
modified. The diskette is repositioned to the specified record, specified in the 
instruction as follows: 



Operandi 
Mnemonic 



Purpose 



BOE Sets the record number to 0. The first record in the data set is 

record 1 , so a subsequent READ instruction that specifies next- 
record (+) reads the first record of the data set. Or a subsequent 
search-forward instruction begins the search with record 1 . 

CURR Rereads the current record (as specified by the current record 

pointer) from the diskette into the physical buffer and into the 
logical record buffer. The data set type must allow reads. 

LAST Sets the record number to the number of the last logical record 

of the data set, and reads the last record from the diskette into 
the physical buffer and into the logical buffer. The data set type 
must allow reads. 

EOD Sets the record number to the EOD number, which is the 

number of the next available record space on the diskette past 
the last record (last record plus one). Subsequent write instruc- 
tions that specify current-record extend the data set. 



Read and Write Operations 

Records can be read according to a key, or read and written by sequential 
record number or relative record number. For sequential records, the system 
keeps track of the record number in an internal register. For operations at the 
relative record number, you must assign a binary register or register pair to hold 
the relative record number. After every read or write instruction, the system 
updates the internal register. You must update the assigned binary register if 
you are using relative record access. 

The buffer management for the following read and write operations is described 
as for automatic logical buffering. If you use pointer I/O, the logical buffer 
address in the data set IOB points to the logical record within the physical 
record buffer. See Diskette Data Management in Chapter 2 for more informa- 
tion about pointer I/O. 
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The format for read and write instructions is as follows: 
Mnemonic Data Set Format Record 



READ 



(1-15 



[ '\ label j ' 



WRT 



WRTS 
WRTI 



(1-15 



(1-15 



[ ,label , 



[ .label 



Rn 
BRn[(4)] 

+ 


BRn[(4)] 

+ 


,0 



Operandi 






„BRn 



Operand2 



]) 



,B] 



,B] 



INSBLK (1-15 



where: 



Data Set specifies the number of the data set to read or write. The label is 
the DSN parameter from the .DATASET control statement. Do not specify 
for an I/O instruction. 

Format specifies the label of the edit format to use. The label is the 
LABEL parameter of the .FMTST control statement that defined the format. 
If the format is omitted, you must move the data to or from the logical 
buffer with other instructions. No format may be specified with pointer 
I/O. An asterisk (*) may be specified for READ, indicating that formatting 
is data directed. See Data Directed Formatting in Chapter 2 for more informa- 
tion. 

Note: When formatting is used, operand 1 defaults to nonoverlapped I/O 
regardless of what is specified in the instruction. 

Record specif ies the logical record to read or write. The following specifica- 
tions are allowed. 



{2} 
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Entry Description 

(Key) Rn A decimal register may be specified (for READ only) 

when using a key data set. The decimal register 
contains the key of the record to read. 

(Relative) BRn f(4)J When a binary register is included for a write instruc- 
tion the 5280 checks the .DATASET parameters to 
determine the data set type. If this is an SCS 
conversion data set, the binary register is used as a 
pointer to a storage area that you have declared and 
stored SCS control characters. See Printer Instructions 
for a description of the SCS control characters for an 
SCS conversion data set. 

If this is not a write instruction to an SCS conversion 
data set, the binary register contains the relative 
record number of a sequential data set. This number 
replaces the current record number. If necessary for 
the size of the number, a binary register pair may be 
used. The number is relative to the BOE (beginning 
of extent) for the data set, which is record 1 . The 
contents of this register are not changed after the 
operation. If it must be incremented, you must code 
instructions for incrementation. 

A minus sign indicates the previous sequential non- 
deleted record. A previous-record specification defaults 
to for the WRTS or WRTI instruction. A previous- 
record specification does not permanently alter the 
current record number for a write operation. Conse- 
cutive previous-record write operations process the 
same record. If a WRT instruction that specifies 
previous-record is issued at EOD, the last record of the 
data set is overwritten and the record pointer still 
points to EOD. A read-previous operation decrements 
the current record pointer. 

+ A plus sign indicates the next sequential non-deleted 

record. The next-record specification is the default for 
the READ instruction. When a read-next operation is 
executed, the current record number is incremented. 

The next-record specification defaults to for the WRTS 
or WRTI instruction. If a WRT instruction specifies 
next-record, the current record number is not 
incremented. Consecutive next-record write operations 
write the same record. If an instruction that specifies 
next-record is issued at EOD, an external status is 
presented. 
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Entry Description 

A zero indicates the current record number. The 

current-record specification is the default for the write 
operations. If a write operation is issued at EOD, the 
current record number is incremented and the data 
set is extended. The record is written into the EOD 
space, and the EOD is incremented. The current 
record number and the EOD point to the same record 
space on the diskette. 

If a READ instruction specifies current-record, the 
current record is not incremented and the current 
record is re-read. 

Operandi specifies whether the operation is executed as overlapped (0) or 
nonoverlapped (N) I/O. If not specified, or if formatting is to be done, it 
defaults to nonoverlapped. See Overlapped I/O in Chapter 1 for more informa- 
tion. 

Operand2 B may be specified if a format is included for the write instructions, 
but B is not allowed for READ. If B is coded, the I/O buffer is blanked at 
the start of the operation. 



Access Methods Valid for Each File Type 

The access methods for the file types are illustrated in Figure 4-3. The keywords, 
which indicate both file type and access method, are described under the TYPE 
parameter of the .DATASET control statement in Chapter 3. 



Type: 
Record: 

READ 

WRT 

WRTS 

WRTI 

INSBLK 



SR 



SW 



SU 



KR/N 



KU/N 



+ - Brn 





+ - Brn 


+ 


- 





Rn 


'+ - o 


Rn 


r + - Brn 


C C V c 


u 
u 


C C V c 
V V E C 

E 

U 

U 


c 


c 


V 


c 


C C V 

V V E 

E 

U 

U 


c 


C C V c 
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Valid. 

Valid; current record pointer updated. 

Valid; EOD updated if writing at EOD; otherwise current record pointer is not changed. 

Valid; EOD updated. 



Figure 4-3. Access Methods for Data Set Types 
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READ (Read a Data Set Record) 

Mnemonic Data Set Format 



READ 



[1-15 



'\ label/ 



Record 



Rn 
BRn[(4)] 







I 



Operandi 



■ft) 



When the READ instruction is executed, the specified record is copied from the 
physical buffer into logical I/O buffer. If the logical record is not within the 
physical buffer, logical records that include the specified record are read from the 
diskette until the physical buffer is filled. Then the logical record is copied 
into the logical buffer. If formatting is to be done, the data is moved and 
formatted from the logical buffer into the locations specified in the indicated 
format. 



WRT (Write a Record) 

Mnemonic Data Set Format 



WRT 



(1-15 



Uabel 



Record 
i 

BRn[(4)] 

+ 




Operandi Operand 2 



■{:} 



,B] 



When the WRT instruction is executed with a format, the logical I/O buffer is 
blanked if the operand is coded B. The data is formatted and moved from the 
locations indicated in the format into the logical I/O buffer. The data is written 
from the logical I/O buffer into the physical buffer, at the position indicated by 
the record parameter. If you are using pointer I/O, the logical record address in 
the IOB is not modified unless you are extending the data set at EOD. 

For an SCS data set, you can use the binary register normally specified for the 
Record operand to specify SCS control characters. See SCS Conversion under 
Printer instructions for more information about an SCS conversion data set. See 
Appendix B for a description of SCS control characters. 



WRTS (Delete a Record) 

Mnemonic Data Set 



WRTS 



(1-15 



Format 

Uabel 



Record 



,0 



Operandi 



{;} 



Operand2 

,B]) 



When the WRTS instruction executes, the current record is written as in the WRT 
instruction. In addition, the record is marked as deleted. 
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For a basic or H exchange data set, a special address mark is used to flag a 
deleted sector. For an I or E exchange data set, the character specified by the 
DFLG parameter of the .DATASET control statement is placed in the last byte 
of a deleted logical record. 

If you issue a WRTS to a HDR1 label on cylinder 0, side it is written as a 
physically deleted record (address mark). 

If you want to delete a record at a relative record number, read the record at that 
relative record number, then delete the record with the WRTS operation. You 
can use WRTS at EOD to create a deleted record. In order to read a deleted 
record you must use a relative record read instruction. 



WRTI (Insert a Record) 

Mnemonic Data Set Format Record Operandi Operand2 

WRTI (1-15 [,label, 0, i^l ,B] ) 



:} - 



When the WRTI instruction is executed, the current logical record is written into 
the position immediately preceding the current record. The write takes place as 
for the WRT instruction. Unless the record is inserted as the last record in the 
data set, the 5280 moves all records below the inserted record down one record 
position. If a deleted record is present, the records move down to the deleted 
record and the deleted record is removed. There must always be enough room 
for 1 record at the end of the data set even if there are deleted records in the 
data set. You must specify two physical buffers and a logical buffer in the 
.DATASET control statement for the data set in order to use the WRTI 
instruction. WRTI is not allowed for a shared data set, an SCS data set, or a 
pointer I/O data set. 



INSBLK (Insert a Block of Records) 

Mnemonic Data Set Operand 



INSBLK (1-15 „BRn ,[ \ K , } ]) 



■**> ■■{2} 



The INSBLK operation inserts a number of logical records into the specified 
data set. The binary register (BRn) specifies the number of records to insert. 
The records are inserted immediately preceding the current record, and the 
records following the current record are relocated, with no data loss, to make 
room for the inserted records. 

If there is not enough room in the data set for the inserted records, external 
status is presented and the insert does not take place. 

If the instruction specifies 0, the operation is executed in overlapped mode. 
Otherwise it is executed in nonoverlapped mode. 
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If the current record pointer is set to EOD when this instruction is executed, you 
must reposition the pointer to EQD to perform write-current operations at EOD. 

The INSBLK instruction is not allowed for a shared data set, an SCS data set, or a 
data set that uses pointer I/O. To execute this instruction you must specify two 
physical buffers and a logical buffer in the .DATASET control statement that 
sets up the I OB for this data set. 

The inserted records are treated as deleted records and may be written with the 
WRTI or WRT instruction. 

The WRTI instruction performs a similar operation except only one logical record 
is inserted and written. The INSBLK instruction can save time when a large 
number of records must be added to a data set. Performance is improved with a 
greater buffer size for I and E exchange. 

Upon completion of the operation, the current record pointer is modified to 
point to the first of the inserted records. If an error occurs during the operation, 
the contents of the current record pointer are unpredictable. 



Search Operations 

The 5280 can search a data set for a record that agrees with one or more mask 
specifications. The 5280 reads each physical record into the physical record 
buffer, then searches each logical record for the mask specifications. If a record 
is found that matches the mask specifications, it is placed into the logical record 
buffer and the search ends. If no matching record is found, an external status is 
presented; the contents of the logical buffer depend upon the kind of search 
performed. You can specify a binary search to search the data set for a specified 
mask. Or you can specify a sequential search to search the data set or the current 
contents of the logical record buffer for one or more relational mask specifications. 

A binary search is performed to find the location within the data set of the logical 
record that matches the contents of the mask specification. The data field that is 
searched must be in the same record position of each record and must be in 
ascending order. 

A sequential search is performed to find a record that matches the contents of 
one or more mask specifications. Multiple mask specifications include relational 
and logical operators. There is no limit to the number of mask specifications you 
can include for each sequential search. The logical operations are logical AND 
and logical OR. The logical operations are performed from left to right with 
AND having priority over OR. You cannot group the mask specifications to 
give OR priority, such as: (FLD1 or FLD2) and FLD3. You can accomplish this 
operation, however, by expanding the specifications sequence to: FLD1 
AND FLD3 OR FLD2 AND FLD3. For each mask specification you may 
indicate only one logical operator and one relational specification. 

If translation is performed on the data set being searched, it occurs in the physical 
buffer before the logical records are searched. 

A record begins with position 1 . The detailed format for the mask specifications 
is illustrated with each search operation. 
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The format of the search instruction is as follows: 
Mnemonic Data Set Operandi Operand2 



SEARCH (1-15 f BRn, 



where: 

Data Set indicates the data set to search. 

Operandi indicates a binary register that contains the storage address of the 
mask specifications. The mask specifications must be loaded into a storage 
address before you issue the SEARCH instruction. The format of the mask 
specifications depends upon the kind of search performed. Each format is 
explained with the search type descriptions. 

0perand2 indicates the kind of search to perform. One of the search keywords 
must be specified, as follows: 

Operand2 

Entry Description 

F Forward sequential: an unordered data set is searched, starting 

with the record following the current logical record and ending 
with the desired record or the last data set record. Each record is 
searched for the mask specifications. If a matching record is 
found, it is written into the logical record buffer. If no matching 
record is found, the last logical record in the data set is placed 
into the logical record buffer and an external status (3702) is 
presented. 

If the current record pointer is at zero, the search starts at the 
beginning of the data set. 
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Operand2 

(continued) Description 



The format of a mask specification for a type F search is as follows: 
Byte Contents 

0-1 Length of the mask. 

2 Relative and logical operators. The 5280 does not 

check bits and 1 when it processes the first mask 
specification. However, every following mask 
specification must have either bit or bit 1 turned 
on. Each mask specification can have one, and only 
one, of bits 2-7 turned on. If more than one is on, 
an external status (3417) is presented. 



Bit 


Meaning If 1 





logical AND 


1 


logical OR 


2 


LT (less than) 


3 


GT (greater than) 


4 


LE (less than or equal) 


5 


GE (greater than or equal) 


6 


EQ (equal) 


7 


NE (not equal) 



3-4 Field position in which to begin search. 

5-6 Field position in which to end search. 

7-n Mask. 

The mask specification can be repeated from byte 0. 
Follow the mask in the last specification with hex 
0000 to indicate the end. 

Binary; an ordered data set is searched for a record that agrees with 
a mask specification. The mask specification is compared to a 
field that must be located in the same position of each record and 
must contain data in ascending order. If a record matching the 
mask is found, it is written into the logical record buffer. If 
a matching record is not found, the logical record immediately 
following the relative record position where the record would 
have been located is placed into the logical record buffer, and 
an external status (3702) is presented. However, if the record 
position would have been beyond the EOD, the last record in 
the data set is placed into the logical record buffer and an 
external status (3703) is presented. 
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Operand2 

Entry 

(continued) Description 



The format of a mask specification for a type B search is as 
follows: 



Byte 


Contents 


0-1; 


length of the mask. 


2-3; 


field position in which to begin search 


4-n; 


mask. 



Only one mask specification may be used. 

R Reverse; an unordered data set is searched as for a forward 

sequential (F) search, except the data set is searched in a back- 
ward direction. The search begins with the record preceding the 
current logical record. If the current record pointer is at zero, 
the search begins at the end of the data set (at the last record). 
When a matching record is found, it is placed in the logical 
record buffer. If no matching record is found, the first record 
in the data set is placed in the logical record buffer. 

The format of the mask specification for a type R search is as for 
a type F search. 

L Logical record; the contents of the current logical record buffer 

are searched for mask specifications. If the record matches the 
mask specifications, no external status is presented. If the 
record does not match, an external status (3702) is presented. 

The format of the mask specifications for a type L search is as 
for a type (F) search. 

Examples: The following mask specification uses a binary search to search a data 
set for a record containing 137, starting in position 15. 

Length Mask 

X'0003000FF1F3F7' 
Position 



The following mask specifications search a data set for a record that satisfies 
one of the following three conditions. 

1. The record contains ABC in positions 1-5. 

2. The record contains DE in positions 1-10 AND ABC is not in positions 1-5. 

3. The record contains ABCDE in positions 6-20. 
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Mask 
I 



OR 
I 



Mask 



End 



EQ End 



AND 

NE End 



Mask 



OR 



Mask 



EQ 

I ^^ I II 

X'QQQ2P2000 1 0005G1C2C3QQ02420Q0 1 000AC4C S0003 8 1 000 1 0005C1 C2C300054 2000600 1 4C1C2C3C4GS0000' 



EQ End 



Start 

-Length 
of Mask 



Start 

-Length . 
of Mask 



Start 

_ Length . 
of Mask 



Start 



, Length . 
of Mask 



End of 
Specification 



PRINTER INSTRUCTIONS 

Printer instructions include instructions to open, write, and close a data set. A 
printer data set must be described in a .DATASET control statement as follows: 

• There must be one physical buffer; two physical buffers are allowed for double 
buffering unless the data set specifies share attributes, SCS conversion, or early 
write. 

• If the logical buffer address is omitted or specified to be the same as the physical 
buffer address, pointer I/O is selected by the assembler. Pointer I/O is not valid 
for SCS conversion data sets. 

• The logical record length must be specified. It must be less than or equal to 
the length of the physical buffer, and less than or equal to the space allocated 
for the logical buffer. 

• The data set type must be sequential write (SW). 

You can write a diskette data set to the printer if the data set specifications are 
valid for the printer. If a diskette data set has an ALLOC (allocate) instruction, 
the printer processes it as though it were an OPEN instruction. The binary register 
specified with the ALLOC instruction is ignored. 



SCS Conversion 

The format of the printed output can be altered with SCS (standard character 
string) control characters. You can insert the control characters into your data 
stream, or you can use an SCS conversion data set. See Appendix B for a descrip- 
tion of the SCS control characters you can use if you are not using an SCS conver- 
sion data set. If you are using an SCS conversion data set, the 5280 inserts the 
control characters into the data set. A data set that has SCS conversion specified 
in the .DATASET control statement is referred to as an SCS conversion data set. 
The 5280 inserts the SCS control characters into the SCS conversion data set 
record during a write operation when the record is moved from the logical buffer 
to the physical buffer. All I/O operations for an SCS conversion data set are 
processed by the 5280 rather than by the I/O device, and must therefore be 
specified as nonoverlapped I/O. 
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You can store a data set on a diskette and save diskette space by defining the data 
set as an SCS conversion data set. If you later write the data set from the diskette 
to the printer, do not again request SCS conversion on the data set. This would 
cause the 5280 to again try to perform the SCS conversion processing on a data 
set that already contains SCS control characters. A data set that already contains 
SCS control characters is referred to as an SCS data set. 

SCS control characters have EBCDIC values under hex 40. In order to prevent 
unpredictable printer results, do not place an EBCDIC below hex 40 into the 
logical buffer. If SCS control characters are in data that is to be translated, they 
must not be altered by the translation. See Translation under Miscellaneous 
Instructions in this chapter for more information. 

When a data set is processed during SCS conversion, presentation control characters 
are substituted for four or more blanks that occur on a single line. Blank characters 
that occur between the last nonblank character and the end of the line are replaced 
by a new-line control character. When the 5280 processes a line equal to or 
greater than the line number specified as the last line (LSTLN),an indicator (1115) 
is set on. Your program may at this time cause SCS control characters to be 
placed into the data stream. This is done by including a binary register with the 
write instruction. The binary register holds the address of a string of control data. 
When using this binary register to point to control data to insert into the data 
stream, the line size (LINSIZ) and logical record length (LRECL) must be equal. 
The format of the data string is as follows: 

Byte Bits Meaning 

0=1 The 5280 spaces the number of lines given in byte 1 of this 

control string. If the 5280 is at or past the line specified 
for the LSTLN parameter of the .DATASET control 
statement, 1 1 1 5 is set on. A value of zero causes only a 
carriage return. Bit and bit 1 are mutually exclusive. 

1=1 The 5280 skips to the line number given in byte 1. If 

the line number is greater than the number specified for 
the PGSIZ parameter of the .DATASET control statement, 
an error (2229) is reported and processing stops. A value 
of zero causes only a carriage return. Bit 1 and bit are 
mutually exclusive. 

2=1 The 5280 inserts into the physical buffer the control 

characters specified in this data string. Byte 1 specifies the 
number, minus 1 , of control characters to insert. Byte 2 is 
the first byte of control characters to insert. The control 
characters may be any of the control characters described 
in this appendix. The contents of the logical buffer are 
moved into the physical buffer, then the control characters 
are moved into the physical buffer. 

If you put in any control characters that change the 
presentation surface format (maximum number of lines 
per page or maximum number of characters per line), 
you must also update bytes 43 and 47 of the data set 
IOB to reflect these changes. If you put in control 
characters that change the line number or character 
position for the next character to be printed after the 
control string is completed, you must also update bytes 
41 and 46 of the data set IOB to reflect these changes. 
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Byte Bits Meaning 

3=1 The 5280 moves only control characters into the physical 

buffer; it does not move the contents of the logical buffer 
into the physical buffer. If bit or bit 1 = 1 , the control 
characters are generated by the 5280. If bit 2 = 1 , the 
control characters are the ones specified in this data string. 

4-7 Reserved 

1 Space control if byte 0, bit = 1 . Skip control if byte 0, 
bit 1 = 1. Number minus 1 of bytes of control characters 
if byte 0, bit 2 = 1 . 

2 First byte of control characters to move to physical 
buffer; used only if byte 0, bit 2 = 1 . 

The .DATASET control statement that requests SCS conversion must specify a 
logical buffer. You cannot use pointer I/O and specify SCS conversion concurrently. 
The .DATASET control statement must also specify the logical record length 
(RECL) and the physical block size (PBSIZ), line size, and they must be equal to 
or less than 132 bytes. They may be overridden from the HDR1 label of a diskette 
data set. 

If you want to close a data set I OB that requested SCS conversion, then reopen 
the same data set IOB, you must reinitialize certain bytes of the IOB. (The 
bytes at displacement hex 40, 41, and 42 must be set to hex 00. The 2 bytes at 
displacement hex 44-45 must be reinitialized to the symbol you want to use to 
represent unprintable EBCDIC values [SGEA] ). Reloading the program will 
accomplish this reinitialization. 



Pointer I/O 



Pointer I/O may be used for a printer data set unless SCS conversion is specified. 
The logical records are blocked and deblocked directly to and from the physical 
buffer. The logical buffer address points to the address, within the physical 
buffer, where the next logical record is to be placed. See Pointer I/O in Chapter 2 
for more information. 



Early Write 



Early write may be specified for any printer data set to transfer one logical record 
to the printer for each write operation. If early write is not specified, the data is 
not sent to the printer until the physical buffer is full. Early write is always used 
for SCS conversion data sets whether or not it is specified in the .DATASET 
control statement. Early write data sets must not specify double physical 
buffering. 
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Share Data Sets 



The conventional method for using printer data sets is to open a data set, issue 
write instructions, close the data set, then open the next data set. However, if 
you want to keep an IOB open but also let other lOBs use the same printer, you 
can use share data sets. A share data set has share attributes specified in the 
.DATASET control statement that sets up the data set IOB. The lOBs that 
share a printer may be in the same partition or in different partitions. Do not use 
double physical buffering for a share data set; use one physical buffer and one 
logical buffer. Pointer I/O is allowed for shared data sets. It is recommended 
that you always specify early write for a share data set so the requirement for a 
full physical buffer does not prevent data from being sent to the printer. 

When more than one share data set IOB is open to the same printer, the printer 
uses the specifications (such as lines per page and line length) from the last 
IOB that was opened. For example, if the first share IOB specifies line length 
of 80 characters, then a second IOB is opened that specifies line length of 132 
characters, the printer uses 132 characters for line length for printing data from 
either data set. 

A share data set IOB retains control of the printer until the physical activity for 
that data set is complete (data has been moved from the physical buffer to the 
printer, and the printer has completed printing the data). If a second 
share data set IOB tries to use the printer (with an OPEN or a WRT instruction) 
before the physical activity for the first share IOB is complete, a 2755 warning 
message is reported to the second share IOB. Subsequent retries return the 2755 
warning message to the second IOB until the physical activity for the first IOB 
is reported to be complete. The second share IOB then takes control of the 
printer until the physical activity for the second share IOB is reported to be 
complete. 

It is possible for the printer to report physical activity complete for an IOB 
before all the data you expect from the IOB has been printed. This can happen, 
for example, when the 5280 must process other instructions for the IOB between 
the WRT instructions. To avoid letting a second share IOB from gaining unexpected 
access to the printer, you may wish to use an indicator that prevents another 
IOB from using the printer and is turned off only when all the WRTs you expect 
from the first IOB have been executed. Any share IOB would check this indicator 
when it needs the printer, and would try to share the printer only when the 
indicator is off. Or, you can avoid using share data sets; open and close each 
data set IOB as it needs the printer. 
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Error Recovery Procedures 

Error recovery depends upon: (1) the instruction stored in the data set IOB when 
the error occurred, and (2) whether the operation that was being executed when 
the error occurred had completed processing data. If the operation had not 
completed processing data when the printer reported external status, the 
instruction may need to be reissued for that operation. For example, if a write 
operation is being executed and the printer reports external status before the 
logical record has been processed, the WRT instruction must be reissued to reload 
the logical buffer. Unless external status is reported when an OPEN is in the 
data set IOB, the 5280 sets byte 13, bit 5 of the data set IOB when external status 
is reported before an operation has completed processing data. If the operator 
presses the Reset key, the 5280 goes to your printer external status subroutine. If 
your subroutine clears the condition and then issues a RETURN, the 5280 returns 
to reissue the instruction if byte 1 3, bit 5 is on, and returns to the next sequential 
instruction if the bit is not on. (This bit can be tested with the IFDSI instruction, 
using dsin 13.) If external status occurs when an OPEN is in the data set IOB, the 
5280 always returns to the instruction following the OPEN when the RETURN is 
issued. Your program must reissue the OPEN if you want to continue with that 
IOB. 



A Directed Close 

When a CLOZ is issued while byte 13, bit 5 is on, the data set is closed and any 
unprinted data is lost. This is referred to as a directed close. You may want to 
use a directed close when the external status condition cannot be cleared. The 
closed data set can then be opened for another printer. 



External Status during Close 

If the printer reports external status when a CLOZ is in the data set IOB, the 
5280 checks byte 13, bit 5 of the data set IOB when the RETURN is issued. If 
the bit is on, the 5280 reissues the CLOZ instruction. This causes a directed 
close, and can result in a loss of data. To avoid loss of the unprinted data, you can 
(1) have your subroutine keep checking byte 0, bit 2 (dsin 2) of the data set IOB 
until it is turned off (physical activity complete), then issue the RETURN, (2) 
direct the operator to clear the condition and allow the printer to finish printing 
before pressing the Reset key, or (3) if the printer is still printing (2292 error), 
direct the operator to let the printer finish printing before pressing the Reset key. 



Operator Determined Error Recovery 

You can let the operator determine error recovery by using function keys or key 
sequences. For example, the Cmd, End of Job key sequence can be used to issue 
a CLOZ for a directed close. Another function key or key sequence could call a 
subroutine to check byte 0, bit 2 (dsin 2) of the data set IOB, and issue a close 
when this bit is off; this could be used instead of the Reset key after a printer error. 
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Discontinuing a Print Job from the Printer 

If you want to discontinue a print job from the printer before the printing is 
completed, use the Cancel switch rather than the Stop switch on the printer. 
Cancel causes a 2601 error; a CLOZ should be issued for this condition in your 
program. The printer will finish printing the data that has been sent from the 
physical buffer in main storage before it stops printing. If you use the Stop switch, 
the data that has been sent from the physical buffer in main storage is not 
cleared from the printer buffer when the printer stops printing; this data is 
retained until the Start switch is used, then it is printed. 

The format of the printer instructions is as follows: 

Format Operands 



Mnemonic 


Data Set 


OPEN 


(1-15) 


WRT 


(1-15 


WAIT 


(0-15) 


CLOZ 


(1-15) 



° {:}.. 



[,label ,0 , \ _ } ,B] 



where : 



Data Set specifies the data set number. This is the DSN parameter of the 
.DATASET control statement that set up the IOB for this data set. If data set 
is specified as in the WAIT instruction, it specifies the keyboard rather than 
a data set. Do not specify for any other instruction. 

Format specifies the label of the edit format to use; specified only for the 
WRT instruction. Do not specify a format if you use pointer I/O. 

Operands are explained for each instruction in the operation description. 



OPEN (Open a Data Set) 

Mnemonic Data Set 

OPEN (1-15) 

When an OPEN instruction is executed, the printer specifications are initialized 
to the following: 

Page size = 1 ; the forms control can page forward at every line. 

SGEA = (-,1); print one dash and continue printing for unprintable characters. 

Maximum line size = logical record length (from the .DATASET control statement). 

These printer specifications can be altered by SCS control characters in the data 
stream. See Appendix B for a description of the SCS control characters. 

The OPEN instruction is always processed in nonoverlapped mode. The data set 
must be a sequential write data set. The IOB is placed on the IOB chain, and the 
open flag in the data set IOB is set to indicate that the data set is open. 
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WRT (Write a Record) 

Mnemonic Data Set Format Operands 

WRT (1-15 [,label 



■o •{» * 



When the WRT instruction is executed with a format, the logical I/O buffer is 
blanked if the operand B is coded. The data is formatted and moved from the 
locations indicated in the format into the logical I/O buffer. The data is written 
from the logical I/O buffer into the physical buffer unless you are using pointer 
I/O. Unless early write is specified, the logical records are not written from the 
physical buffer until the physical buffer is full. The zero, for write current, may 
be omitted, but the comma must be retained if an operand to the right is 
specified. When the data has been sent from the physical buffer to the printer, 
it is placed into a printer device buffer. The physical buffer is free to accept more 
logical records while the data in the printer device buffer is being printed. 
Therefore, a print error can occur for data that is already sent from the physical 
buffer. 

If is specified, the write is executed as overlapped I/O. See Overlapped I/O 
in Chapter 2 for more information about overlapped I/O. If N is specified, the 
write is executed as nonoverlapped I/O. 



WAIT (Wait for I/O Completion) 

Mnemonic Data Set 

WAIT (0-15) 

The WAIT instruction is used when you are processing with overlapped I/O. It 
is processed as described for the diskette instructions to prevent modification of 
the logical buffer prior to completion of the I/O instruction last issued to each I/O 
device. 

CLOZ (Close a Data Set) 

Mnemonic Data Set 

CLOZ (1-15) 

When the CLOZ instruction is executed, the 5280 checks to determine if the 
data that was sent to the printer for the data set has completed printing. If it 
has, the data set is closed; the IOB is removed from the IOB chain and the data set 
open flag in the IOB is turned off to indicate that the data set is not open. If it 
has not completed printing, and if it is the only IOB on the chain, the 5280 will 
wait up to three minutes (approximately) for the printing to be completed. If 
the printing is completed within this time, the data set is closed. If the printing 
is not completed, a 2292 error for failure to close is reported. If more than one 
IOB is on the IOB chain, the time limit is extended. If a directed close is 
issued before the data has completed printing, the data still within the printer 
device buffer and the data that is still within the physical buffer in main storage 
is lost. See Error Recovery Procedures under Printer Instructions for a description 
of a directed close. 
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KEYBOARD AND DISPLAY INSTRUCTIONS 

The keyboard and display instructions include the key entry commands and 
keyboard operations. The commands initiate formatted data entry through the 
keyboard. Keyboard operations allow unformatted key entry, cause limited data 
movement, and perform other tasks related to the keyboard and display screen. 

A command or an operation can be requested by a program executing in either a 
foreground or background partition. While a keyboard operation is being 
processed for a partition, the keyboard attached to the partition is locked. If a 
keyboard operation is requested while a key entry command is in process, data 
entry under that command is suspended at least until the operation is completed. 



Key Entry Instructions 

A formatted record can be entered only when an ENTR command is being 
processed. An ENTR command may be issued by a program loaded into any 
partition. However, the partition must be attached to its associated keyboard. 

When the 5280 encounters an ENTR while it is processing instructions within a 
partition, it unlocks the keyboard attached to that partition. The keyboard/ 
display may then accept a record. This input record is formatted according to a 
screen format control string, which is generated from a series of .SFMT control 
statements and is specified in the ENTR command. The screen format control 
strings are described in Chapter 2 under Screen Formats. 

During key entry under an ENTR command, an external status condition may occur. 
External status conditions are described in Chapter 6 under Keyboard/Display 
External Status. When an external status condition occurs, the keyboard/display 
locks the keyboard to temporarily suspend key entry. It sets an external status bit 
and specifies the condition number in the appropriate partition control area 
locations, then it notifies the 5280. When the 5280 checks the partition control 
area and finds an external status condition outstanding, it executes the appropriate 
external status subroutine. This subroutine handles the condition and determines 
when the keyboard is unlocked and when the external status bit is turned off. If 
the interrupted screen format is not completed, return from the external status 
subroutine is made to the place in the format control string where the interruption 
occurred. If the screen format is completed, return is made to the instruction 
following the ENTR instruction. 
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The format for the key entry command and external status subroutine instruc- 
tions is as follows: 



Mnemonic 


Operands 




ENTR 


(label 


[.BRn 


RESUME 


[(B)] 




ENABLE 


(label 


[,POP] 


RESCAL 


(BRn 


.label) 


RETEXT 


KBRn)] 




RESMXT 


[(BRn)] 




where : 







Operands depend upon the particular instruction and are explained with the 
operand description for each instruction. 



ENTR (Accept key Entry) 

Mnemonic Operandi Operand2 Operand3 



■■© 



ENTR (label [, BRn , < K , } ]) 



where: 



Operandi specifies the screen format control string with which to format the 
input record. Enter the LABEL parameter from the .SFMTST statement of the 
screen format you wish to use. 

Operand2 specifies that the functions of the current record buffer (CRBA) 
and the previous record buffer (PRBA) are alternated. The binary register 
(BRn) always holds the address of the buffer that was used as the current 
record buffer for the most recently completed ENTR, and that will be used as 
the previous record buffer for this ENTR. If the binary register is omitted, 
you must use data movement instructions, such as MVC instructions, to move 
the previous record to the PRBA before each new record is input into the 
CRBA. 

Operand3 indicates whether the ENTR is processed an overlapped (0) or 
nonoverlapped (N) I/O. This is an optional parameter that defaults to 
nonoverlapped I/O. See Overlapped I/O in Chapter 1 for more information. 
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When the 5280 encounters an ENTR command, it sets a bit in the partition 
control area to indicate to the keyboard/display that an ENTR command is 
outstanding. The keyboard/display unlocks the keyboard and processes the 
input of the record, according to the screen format specified by operand 1. 
The prompts and display attributes specified in the screen format are moved to the 
screen in the order in which they were coded. The input data is checked 
against the screen format input field definitions. All valid data is placed into the 
input buffer designated to hold the current record. 

If operand 2 specifies the binary register (BRn), the functions of the current 
record buffer and previous record buffer are alternated. If operand 3 specifies 0, 
overlapped I/O occurs. 



RESUME (Resume Key Entry) 
Mnemonic Operand 

RESUME [(B)] 

where: 

Operand is an optional entry to reposition the cursor after an external status 
hex 04 or 05 condition. 

When data entry under an ENTR command is interrupted by an external status 
condition, the appropriate external status subroutine is called. If a RESUME is 
encountered in the external status subroutine, the keyboard is unlocked and 
input from the keyboard resumes under the interrupted ENTR command. 
RESUME does not return control from a subroutine, nor does it clear the external 
status bit in the partition control area. 

If the operand (B) is included with the RESUME instruction, it is ignored except 
after an external status hex 04 or 05 condition. After an external status hex 04 or 
05 condition, which indicates a forward or backward pass over an RG specification, 
the cursor is repositioned to the last manual position preceding the RG 
specification. There must be at least one manual data position defined preceding 
the RG specification when the RESUME(B) instruction is executed. 

If external status hex 04 has occurred, and the operand (B) is omitted, the 
format resumes processing in a forward direction with the format specif ication 
following the RG specification. 

RESCAL (Resume and Call Subroutine) 

Mnemonic Operandi Operand2 

RESCAL (BRn , label) 

where : 

Operandi specifies a binary register that contains either the index into the 
label table or a displacement. 

Operand2 specifies the label of a subroutine or a label table. 
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When a RESCAL command is encountered in an external status subroutine, the 
Keyboard is unlocked and the processing of the interrupted i_NTR command is 
resumed. At the same time, the subroutine specified by the operands is called 
and executed. 

If the operands specify a label with no binary register, the call is made to the 
subroutine at that label. If a subroutine label is specified with a binary register, 
the contents of the binary register are added to the address of the subroutine and 
the call is made to the resulting address. If a binary register is specified with the 
label of a label table, the contents of the binary register are used as the index into 
the label table. The call is made to the address at that index. 

This instruction can be used when the cursor enters a screen format field that 
has CNTL = RG specified in the control string specification for that field. 
Entering the field causes external status condition 4; the 5280 calls the appropriate 
subroutine, which includes a RESCAL command. The processing of the ENTR 
continues, and the 5280 calls the subroutine specified by the RESCAL instruc- 
tion. This subroutine executes, probably processing the data entered into the 
field, while input for successive fields of the input record are being accepted by 
the keyboard. RESCAL does not turn off the external status bit in the parti- 
tion control area or return control from the external status subroutine. 



ENABLE (Reset External Status Bit) 
Mnemonic Operand 

ENABLE [(label [,POP])] 

Whenever an external status condition occurs during the processing of an ENTR, 
the external status bit is set in the partition control area. If an ENABLE 
instruction is encountered in the external status subroutine that is called, the 
bit is cleared. 

If no operand label is included in the instruction, the next sequential instruc- 
tion is executed. 

If a label is included in the instruction, a branch is made to the statement at 
that label. 

If POP is coded, BR18 is decremented by two. It points no longer to the last 
entry into the partition subroutine stack, but to the entry prior to the last entry. 
The ENABLE instruction may be used when the subroutine is terminated with 
a GOTO rather than a return operation. 

Note: If a RESUME or RESCAL is issued before an ENABLE, you can get a 
double external status condition, especially with a forward or backward pass over 
an RG. 
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RETEXT (Subroutine Return and Enable External Status) 

Mnemonic Operand 

RETEXT [(BRn)] 

This instruction acts as the RETURN and ENABLE instructions combined. The 
subroutine is terminated and the external status bit is turned off. BR 18 is 
decremented by two, and the return is made to the address in the partition 
subroutine stack pointed to by BR18. If the operand binary register is included, 
the contents of the binary register are added to the address in the partition stack, 
and the return is made to the resulting address. 

RESMXT (Retext and Resume) 
Mnemonic Operand 

RESMXT [(BRn)] 

This instruction acts as the RETURN, ENABLE, and RESUME instructions 
combined. The subroutine is terminated, the external status bit is turned off, 
and data entry processing is resumed. BR18 is decremented by two, and the 
return is made to the address in the partition subroutine stack pointed to by BR18. 
If the operand binary register is included, the contents of the binary register are 
added to the address in the partition stack, and the return is made to the resulting 
address. 

Note: Use of RESMXT avoids possible double external status that can result 
from issuing a RESUME or RESCAL before an ENABLE. 

Keyboard Operations 

Instructions for keyboard operations may be issued at any location in your 
program. If a keyboard operation is issued while an ENTR command is being 
processed, data entry under the command is suspended at least until the operation 
is completed. 
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I he Tormat ot keyboard operation instructions is as toiiows: 
Mnemonic Operandi Operand2 



BUZZ 






CLICK 






CNENTR 






DISPEX 






DISPST 






KACCPT 


(BRa, 


BRb) 


KATTCH 






KDETCH 






KERRCL 


(BRa) 




KERRST 


(BRa, 


BRb) 


KEYOP 


(X'll' 


[,BRa 


READMG 


(BRa, 


BRb) 


RSTMG 






REPFLD 






RTIMER 


(BRa) 





BRb] 



The operands depend upon the particular mnemonic. They are described in the 
operation description for each mnemonic. 

Note: Repeated use of these instructions may result in a degradation of performance 
because the schedule for processing the partitions is altered. 



BUZZ (Sound Buzzer) 

Mnemonic 

BUZZ 

The BUZZ instruction sounds the alarm on the keyboard associated with the 
partition. The duration of the alarm is approximately 180 milliseconds. 

This instruction can be used to signal the operator for various purposes. For 
example, during key entry the operator may not watch the screen at all times. 
The buzzer can bring the operator's attention back to the screen for a particular 
prompt, when a screen format control string has completed, after a record advance, 
or when a background program attaches to the keyboard. 

CLICK (Sound Click) 

Mnemonic 

CLICK 

The CLICK instruction clicks the keyboard associated with the partition. The 
CLICK instruction could be used after accepting keystrokes under the 
KACCPT operations, to give a response click. 
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CNENTR (Cancel Current ENTR) 

Mnemonic 

CNENTR 

The current enter command is terminated. The end of format control string 
functions are executed, and data entry is no longer accepted by the keyboard/ 
display. On the status line, the counters, insert mode symbol, keyboard shift, 
and hex display positions are set to blanks. The command opcode is set to zero. 

If there is no current ENTR outstanding, the CNENTR acts as a null operation 
and the next sequential instruction is executed. 

This instruction may be used when an error occurs in a field and the operator 
indicates that no further processing of the record should be done. It can also be 
used to exit from a marked record following a record mark. 

If this operation is executed in an external status subroutine during the proces- 
sing of a nonoverlapped ENTR, the return issued in the subroutine is made to the 
interrupted ENTR. The ENTR is reissued and processing begins at the start of 
the format control string specified. 

DISPEX (Display Extra Line) 

Mnemonic 

DISPEX 

The top line on the screen can display either the status line or an extra line used 
by the screen format. The status line is referred to as row 0, and the extra line 
is referred to as row 1 . Both row 1 and row are always maintained, although 
only one may be displayed at any given time. See Non display of the Status Line 
in Chapter 2. 

The DISPEX instruction is used when the extra line (row 1) is being used in the 
screen format, and the status line has been displayed in its place to report an 
error. The DISPEX instruction returns the extra line to the screen, replacing the 
status line. 



DISPST (Display Status Line) 

Mnemonic 

DISPST 

The DISPST instruction displays the status line (row 0) in the top line of the 
screen, replacing the extra line (row 1). The extra line is maintained and may be 
returned to the screen with the DISPEX instruction above. 
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KACCPT (Accept Keystrokes and Store) 

Mnemonic Operandi Operand2 

KACCPT (BRa, Brb[(4)]) 

where: 

Operandi indicates a binary register that contains the storage address to which 
the keystroke data is stored. 

Operand2 indicates a binary register or binary double register. If a 2-byte 
binary register is specified, it contains the information described for bytes 
and 1 below; the keystrokes are not displayed as they are entered. If a 4-byte 
binary double register is specified, it contains the information described for 
bytes to 3 below; the keystrokes are displayed as they are entered. 

Byte Bit Meaning 

Option flags: 

=1 if the keyboard is to sound a response click for each 

keystroke. 

=0 if the keyboard is not to sound a response click. 
1-4 Not used. 

5 =1 if the monocase function is enabled. 

=0 if the monocase function is not enabled. 
6-7 Keyboard shift flags: 

=00 for Alpha shift 

=01 for Num shift 

=10 for special characters shift 

1 0-7 Number of keystrokes to accept, minus 1 . 

2 0-7 Row number where keystroke display begins. 

3 0-7 Column number where keystroke display begins. 

If the operand 2 register is not a binary double register, the number in the low-order 
byte specifies one less than the number of keystrokes to accept. If bit zero of 
the high-order byte of the operand2 register (BRb) is not zero, the keyboard sounds 
a response click for each keystroke. If bit 5 of the high-order byte is not zero, 
keystrokes are converted to their uppercase equivalent as they are entered. The 
keyboard is set to the shift indicated by bits 6-7. The keystroke data is stored 
in main storage, starting at the byte specified by the operand 1 binary register 
(BRa). The keystrokes are not displayed on the screen. 

If operand 2 is a binary double register, the data is displayed as it is entered. 
The rightmost binary register contains the row and column position where the 
first accepted keystroke is displayed. The row number is specified in the high 
order byte of the rightmost binary register, and the column number is specified in 
the low-order byte. The leftmost register contains data as described above. 
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The keystroke data is stored in byte pairs. The first byte of each pair contains 
the keystroke scan code, and the second byte contains the EBCDIC code 
generated from the scan code. The data is not applied to an outstanding ENTER 
command. Shift keys are not stored into main storage; although the keyboard is 
shifted, they do not effect the keystroke count. Command key sequences are 
stored except when the Command key is followed by a console request. In this 
case, only the command is stored before the console function is performed. Hex 
key sequences and diacritic key sequences are stored as two keystrokes. The 
scan code and EBCDIC for control keys such as the Enter key are stored, but 
the control function is not performed. 

If this instruction is issued from a foreground partition, there should be no 
ENTER command outstanding. If this instruction is issued from a background 
partition, the background partition must be attached to the associated keyboard. 

This instruction could be used after an error status is displayed, to accept the 
Reset key. 



KATTCH (Attach Keyboard/Display to Partition) 

Mnemonic 

KATTCH 

When the KATTCH operation is executed, the partition that issued the KATTCH 
instruction is attached to the associated keyboard. All keystrokes from the 
attached keyboard are directed to the attached partition. A partition must be 
attached to a keyboard in order to perform an ENTR, a KACCPT, or a keyboard 
operation to pass scan code (KEYOP(OA)) or to pass EBCDIC (KEYOP(OB)), 
KERRST, KERRCL, perform keyboard function (KEYOP(1 1)), or open 
keyboard (KEYOP(1 5)). 

The KATTCH operation can be initiated by the KATTCH instruction or by an 
operator initiated console request. 

Each foreground partition is permanently associated with (assigned to) a 
keyboard/display. A background partition is associated with the keyboard/display 
that was attached to the partition that loaded the background partition. One 
foreground and several background partitions can be associated with a keyboard/ 
display, but only one partition can be attached to a keyboard/display at any 
given time. If all background partitions associated with a keyboard/display are 
detached (see the KDETCH instruction), the associated foreground partition is 
assumed to be attached in that all function keys and command key sequences that 
normally cause an external status condition are directed to the foreground 
partition. Also, an automatic attach operation is performed each time a fore- 
ground partition issues a keyboard I/O instruction, so the foreground partition 
does not have to issue a KATTCH instruction. 

If the attach operation is successfully completed, control returns to the second 
instruction following the KATTCH instruction. If the operation is not completed 
successfully, perhaps because another background partition is attached or the 
foreground partition is performing I/O, control returns to the first instruction 
following the KATTCH instruction. 
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When a partition is successfully attached to a keyboard/display, the status line 
is modified to display the partition number of the newiy attached partition. 

KDETCH (Detach Keyboard) 

Mnemonic 

KDETCH 

The KDETCH instruction releases the keyboard. It is issued by the program in 
the partition that is currently in control of the keyboard, or by the common 
function operator detach (CFPERATT) routine in response to the Attn 
(Attention) key. Normally, it is better to let the operator control the detach 
with the Attention key rather than to issue a KDETCH instruction from the 
program. 

It is essential that a KDETCH operation be executed when a partition no longer 
needs the keyboard. Failure to detach the keyboard inhibits any other partition 
from attaching to the keyboard. See CFPERATT and CFDETFGD under 
Common Function Routines in Chapter 6 for more information. 

KERRST (Request Keyboard Error Mode) 
Mnemonic Operandi Operand2 

KERRST (BRa, BRb) 

where : 

Operandi indicates a binary register that contains an attribute mask and 
control information for the display of the status line. The format of the 
information is as follows: 



Byte 


Bit 


Meaning If 1 







Attribute Mask 




0-2 


Reserved 




3 

4 


Column separators displayed 
Blink 




5 


Underscore 


1 


6 
7 


Highlight 
Reverse image 
Control Information 





1 


Display status line if it is not currently being displayed 

Start in column 1. 

(if bit 1=0, start in column 3) 




2-7 


Message length minus 1 , up to 63. If 63 is specified, it 
indicates bytes. 



Operand2 indicates a binary register that contains the storage address of the 
message to move to the status line. 

The KERRST instruction places the keyboard/display in software error mode. 
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When the keyboard/display unit is in error mode, all data keys, function keys, and 
command key sequences are ignored. However, if the KEYOP instruction for 
keyboard operation hex 1 1 (perform keyboard function) is issued, the keyboard 
function is performed regardless of the error mode as long as the keyboard is in 
an appropriate state. 

Bits 3-7 of the attribute mask are exclusively ORed with bits 3-7 of the row 
attribute byte (which determines the display of the row) for the top line of the 
screen. If the status line is not being displayed, the extra line will have the 
attributes specified. 

Bytes are moved from the storage address specified by operand2 (BRb) to the 
status line. The bytes are translated through the display translate table, and 
attributes are translated and passed. The bytes moved from storage overwrite the 
original status line data, and the original status line data is destroyed. 

If the status line is currently being displayed when this instruction is executed, 
the indicated message is displayed in column 1 or column 3, according to byte 1, 
bit 1 of operandi (BRa). If the status line is not currently being displayed, the 
message is not displayed if byte 1 , bit contains 0; it is displayed if it contains 1 . 

This operation is invalid if the keyboard/display is already in error mode, or if 
issued from an unattached partition. 

The KERRST can be used by the program to signal a software detected error, 
such as in a self-check field edit. An example of the KERRST instruction follows 
the KERRCL operation description. 



KERRCL (Request Keyboard Error Mode Reset) 

Mnemonic Operandi 

KERRCL (BRn) 

where : 

Operandi specifies a binary register that contains an attribute mask and 
control information, as for KERRST. 

The KERRCL instruction takes the keyboard/display unit out of software error 
mode. A change of screen attributes and display is allowed, according to the 
contents of the binary register (BRn). This register contains an attribute mask 
and control information as described for KERRST. If byte 1, bit =1, and the 
KERRST operation caused the status line to replace the extra line in the top row 
of the screen, the status line is removed from the screen and the extra line is 
redisplayed. Byte 1, bit 1 indicates the column in which the KERRST message 
started. Byte 1, bits 2-7 indicates the number bytes (of the KERRST message) to 
replace with blanks when the KERRCL executes. Byte 0, the attribute mask is 
as for KERRST and can restore the attributes changed by the KERRST operation. 

If an ENTR is outstanding, and bits 2-7 of byte 1 do not equal 0, the field shift, 
current position counter, insert mode indicator, and positions remaining in 
current field counter are restored in the status line. 
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The KERRCL operation is invalid unless a KERRST operation has set the 
keyboard/display in error mode. It is invalid if issued from an unattached 
partition. 

After a KERRST operation is executed, the KERRCL operation must be 
executed in order to enable the keyboard. 

Example: The program can branch to ERRCK when an error in a self -check field 
edit is encountered during key entry. 



ERRCK: KERRST (BRX, BRY) ; keyboard in software error mode, 

* blinking error message is displayed. 
KACCPT (BRXX, BRYY) ; accept the Reset key. 

* Your program code to resolve the error. 

KERRCL (BRX) ; keyboard software error mode cleared, 

* blink attribute removed, message blanked. 
RESUME ; accept key entry under current ENTR. 



The program can now request that the invalid field be rekeyed. 

KEY OP (Keyboard Operation) 

Mnemonic Operandi Operand2 Operand3 

KEYOP (X'll' LBRa] [,BRb] ) 

where: 

Operandi specifies the keyboard operation code that indicates the operation 
to perform. 

Operand2 indicates a binary register that contains the parameterl information 
for the operation. 

Operand3 indicates a binary register that contains the para meter 2 information 
for the operation. 

The KEYOP instruction can perform operations that have no mnemonics. It can 
also perform several operations that do have their own instruction mnemonics. 
These mnemonics are listed below. For mnemonics that require operands, the 
entries for operandi and operand2 are used for parameterl and parameter2, 
respectively. Each of these mnemonics is described individually and is not 
repeated for the KEYOP instruction. 
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Keyboard 








Op Code 


Mnemonic 


Parameter 1 


Paran 


10 


BUZZ 






14 


CLICK 






05 


CNENTR 






OC 


DISPEX 






0D 


DISPST 






09 


KACCPT 


(BRa, 


BRb) 


OF 


KERRCL 


(BRn) 




OE 


KERRST 


(BRa, 


BRb) 


17 


READMG 


(BRa, 


BRb) 


16 


RSTMG 






03 


RTIMER 


(BRn) 





Example: To perform the KERRST operation with the KEYOP instruction, code 
the following KEYOP instruction: 

KEYOP (X'OE', MASKBRN, ADDRBRN) 

The KEYOP instructions for operations that have no mnemonics (and can be 
performed only by the KEYOP instruction) are as follows: 





Keyboard 


Operation 


Op Code 


Change row attribute 


07 


Open keyboard/display 


15 


Pass scan code to keyboard 


0A 


Pass EBCDIC to keyboard 


0B 


Perform keyboard function 


11 


Position screen position pointer 


08 


Release character and field edits 


06 



Keyboard 
Mnemonic Op Code Operation 

KEYOP (X'06') Release character and field edits 

The following character and field edit checks are discontinued for the current field: 

• Character set check 

• Data required 

• Blank check 

• Mandatory enter 

• Mandatory fill 

The checks are discontinued only until the field is exited in the forward or 
backward direction. If the same field is later advanced or backspaced into, the 
checks will be in effect. 
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Keyboard 
Mnemonic Gp Code Parameter! Parameter2 Operation 

KEYOP (X'07' ,BRa ,BRb) Change row attribute 

Parameter 1 specifies a binary register that contains, in the low-order byte, the 
number of the row on the screen to be effected. The valid range for the row number 
is from 1 to the maximum number of lines on the screen. Parameter2 specifies a 
binary register that contains two 1-byte masks. The format of the masks is as follows: 

Bits Meaning 

0-1 System Indicator 

00= None 
01= None 
10=Dash(-) 
1 1 = Solid rectangle ( | ) 

2 1= Valid row starting attribute. This bit must equal 1 for bits 3-7 to be 

valid. 
0= Invalid row starting attribute. Bits 3-7 are ignored. 

3 1= Column separators are displayed. 

0= Column separators are not displayed. 

4 1= Blink the row 

0= Do not blink the row 

5 1= Underline the row 1 

0= Do not underline the row 

6 1= High intensity 1 
0= Normal intensity 

7 1= Reverse image 1 

0= Do not reverse image 

When the operation is executed, the attribute byte (which determines the display 
of the row, maintained by the 5280 for the row specified in parameterl is logically 
ANDed with the mask in the high-order byte of parameter2. The result is then 
exclusively ORed with the mask in the low-order byte of parameter2. 

Keyboard 
Mnemonic Op Code Parameterl Operation 

KEYOP (X'08' ,BRn) Change cursor address 

The contents of the binary register (BRn) specify the row (high-order byte) and 
column (low-order byte) to place in the cursor address bytes of the I/O control 
block. The keyboard/display uses this address as the screen position pointer to 
determine the placement of fields and prompts on the screen during formatted key 
entry. 

If this operation is performed before an ENTR command that specifies a format 
control string with CNTL = CP (continue at current screen position) in the 
.SFMTST statement, the format is initialized at the screen position specified in 
the binary register (BRn). 



If bits 5, 6, and 7 equal 111, the display of the row is inhibited. 
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If this operation is performed while an ENTR command is being processed, all 
subsequent screen definitions for fields and prompts originate at the position 
specified by the binary register (BRn). The cursor does not move over intervening 
fields and prompts. 

Note: Use of this operation while an ENTR command is being processed is not 
recommended. 

Keyboard 
Mnemonic Op Code Parameterl Operation 

KEYOP (X'OA' ,BRn) Pass scan code from storage to keyboard 

The binary register (BRn) contains the address in main storage of one scan code. 
This scan code is moved to the keyboard associated with the partition. The scan 
code is then processed as if it originated from the keyboard. 

Keyboard 
Mnemonic Op Code Parameterl Operation 

KEYOP (X'OB' ,BRn) Pass EBCDIC from storage to keyboard 

The binary register (BRn) contains the address in main storage of one EBCDIC 
code. This EBCDIC code is moved to the keyboard associated with the partition. 
If the EBCDIC code corresponds to a data key EBCDIC or a function key EBCDIC, 
it is then processed as if it originated from the keyboard. The associated scan code 
is set to zero. 

EBCDIC codes 29 (clear screen) and 2A (clear status line) are ignored in this 
operation because they are not function key EBCDICs. These functions can be 
performed by specifying keyboard operation code 1 1 (Perform Keyboard 
Function). 

Keyboard 
Mnemonic Op Code Parameterl Operation 

KEYOP (X'1T ,BRn) Perform keyboard function 

The low-order byte of the binary register (BRn) contains a function EBCDIC 
(hex 01 to 2C). If the EBCDIC is a function key EBCDIC, it is processed as if 
the key corresponding to that function has been pressed, with the following two 
exceptions. 

1 . The keyboard bit map is not checked to determine whether the program 
handles the function. 

2. If the keyboard is software error mode, the function executes if the state 
of the keyboard is appropriate. If the function is 29 (clear screen) or 2A 
(clear status line), it executes regardless of the state of the keyboard. If a 
function EBCDIC other than hex 01 to 2C is specified, an invalid operation 
external status condition occurs. The codes for the functions will be 
described in the Functions Reference Manual. 
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Keyboard 
Mnemonic Opcode Parameter i Operation 

KEYOP (X'15') Open keyboard/display 

The keyboard/display is initialized as follows: 

1 . The clear screen function (29) is performed. 

2. The clear status line function (2A) is performed. 

3. The cursor is erased from the screen. 

4. The blink attribute of the top line displayed on the screen is cleared unless a 
keystroke error or software error is outstanding. 

If this operation is issued from an unattached partition, an external status for 
invalid operation occurs. 

This operation is automatically performed during a partition load operation, and 
should not normally be used by an application program. 

READMG (Read Magnetic Stripe Reader) 
Mnemonic Operandi Operand2 

READMG (BRa, BRb) 

where: 

Operandi indicates a binary register that contains the number of bytes that 
are to be read, minus 1 . 

0perand2 indicates a binary register that contains the address in main storage 
into which the bytes are read. 

When a badge is inserted into a magnetic stripe reader, the badge characters are 
read into a buffer in the reader. External status condition 1 1 occurs for the 
partition associated with the reader. Only one partition can be associated with 
one reader. If the partition is background, or if it is available to the loader, the 
badge data is ignored. If external status is already outstanding at the time of the 
status 1 1 condition, the 5280 waits until the current external status condition is 
cleared before it notifies the partition. 

Once a badge is inserted into the reader and the reader buffer accepts the badge 
data, no other badge data is accepted until the buffer data is read or reset by a 
READMG or RSTMG instruction. After the execution of a READMG instruction, 
the reader is automatically reset to enable the reader to accept another badge. The 
RSTMG instruction is used only when you wish to ignore the current badge data, 
or at the beginning of a program to ready the reader for the first badge. 
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Magnetic stripe data consists of a string of from 3 to 1 28 bytes or characters. 
The first character of a data group must be a start of message (SOM) control 
character. The next-to-the-last character must be an en d-of -message (EOM) 
control character. The last character must be a longitudinal redundancy check 
(LRC) control character of even parity for the entire data group. Any character 
can be issued in the other bytes except an EOM character. 

The format of the reader characters is as follows: 
Name Bit Meaning if 1 

Device flag A magnetic stripe reader is installed. 

Error flag 1 One of the following conditions has occurred: 

• Parity error 

• LRC error 

• EOM missing 

• Improper badge insertion or removal 

• Speed error 

• Buffer address overflow 

LRC flag 2 LRC character. 

Parity bit 3 Odd parity for bits 4-7. 

Data 4-7 If hex to 9, this is a data character. 

If hex B, this is an SOM character. 

If hex F, this is an EOM character. 

If any byte has an error, the error flag is set in all bytes so your program can find 
the error by checking only the first byte. If this flag is set, the data is invalid and 
the badge must be reinserted. 

The device flag should be set on for each data byte in the stripe when the READMG 
instruction is executed after the external status 1 1 . If the program executes a 
READMG instruction when status 1 1 has not occurred, this bit is on if a reader 
is installed or off if a reader is not installed. 

Examples: 



Reader 




Character 


Description 


10001011 


An SOM character 


10011111 


An EOM character 


10100000 


An LRC character 


10011001 


A data character 
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RSTMG (Reset Magnetic Stripe Reader) 

Mnemonic 

RSTMG 

The RSTMG instruction enables the magnetic stripe reader to read a badge. 

This instruction should be included at the beginning of a program that requires 
magnetic stripe data. This ensures that the reader is ready to accept data from a 
badge. 

Although the magnetic stripe reader is automatically reset after the execution of 
each read (READMG) instruction, the RSTMG instruction may be required in the 
following instance. Once a badge is inserted into the reader, the 5280 will not 
accept data from a second badge until the current badge data is read by the 
READMG instruction, or the reader is reset by an RSTMG instruction. If a 
RSTMG instruction is executed, the current badge data is ignored and the reader 
is ready to accept another badge. 

REPFLD (Replace Field or Screen) 

Mnemonic 

REPFLD 

The REPFLD instruction uses the contents of three system binary registers as 
parameters. Parameter 1 is taken from BR19, parameter2 is taken from BR20, 
and parameter3 is taken from BR21. When an external status condition occurs 
during the processing of an ENTR, the 5280 places the following information, about 
the last field processed, into the system binary registers: 

Register Information 

BR19 Address of the beginning of the field in the current record buffer. 

BR20 Absolute address of the beginning of the field in the keyboard/ 

display refresh area. 
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BR21 Length of the field, minus 1 , and character set specifications, as 

follows: 

Bits Meaning 

0-3 Character set 

0000 = picture check field 

0001 = alphabetic shift field 

0010 = numeric shift field 

001 1 = hex field 

0100 = special characters field 

0101 = format level zero field 
1001 = alphabetic-only field 

1010 = numeric-only field 

1011 = digits-only field 

1 100 = special-characters-only field 
4 1 = signed numeric field 

5-15 Length minus 1 

When the REPFLD instruction is executed, the number of bytes indicated by BR21 
are moved from main storage, starting at the relative address stored in BR19, to the 
absolute address in the screen refresh area stored in BR20. 

If BR21 specifies a signed numeric field, or a digits-only field or numeric-only field 
that is not signed numeric, and the rightmost byte of the bytes moved is a hex DO 
through D9, a minus sign is displayed in the sign position of the field, to the right 
of the rightmost character. Otherwise the sign position is blank. 

The data is translated and displayed as for a CRTMM instruction that specifies the 
S for the attributes parameter. (See Move Bytes Between Storage and Screen, later 
in this chapter.) 

REPFLD can be used when data is entered, then calculated or changed in the 
current record buffer, then redisplayed. 

Example: Enter 2 fields: Hours worked + Rate of pay. The program multiplies 
them to find Gross pay. An RG (return to program) bit is included at end of the 
field for Gross pay (a bypassed field since the program computes it). Binary 
register BR 19, BR20, and BR21 are set to the field for Gross pay when the RG 
external status occurs. The subroutine for the RG condition computes the Gross 
pay, and places it in the I/O buffer in the Gross pay field, then issues REPFLD 
to display the computed value. 



RTIMER (Read Elapsed Time Counter) 
Mnemonic Operand 

RTIMER (BRn) 

where: 

Operand specifies a binary register that contains the address of a 3-byte storage 
area into which a timer value is read. 
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The elapsed time counter is an optional feature of the 5280. It measures elapsed 
reai time and can be used to compute production statistics. Approximately 
every 1 .6 seconds the timer overflows. Each time it overflows, a 2-byte counter in 
the system control block is incremented. The RTIMER instruction reads the 
current value (± .05 seconds) of the counter and the interval timer into the 3-byte 
storage area pointed to by the operand binary register. The high order two bytes 
are read from the counter in the system control block. The interval timer value is 
read into bits 4-7 of the low-order byte; bits 0-3 are always zero. 



DATA MOVEMENT INSTRUCTIONS 

The 5280 assembler language provides instructions to: 

• Load a register with a constant or with the contents of another register or 
storage. 

• Store a constant or the contents of a register. 

• Convert binary and EBCDIC data. 

• Exchange the contents of two locations. 

• Move bytes of a specified length to storage or a screen. 

• Move formatted data to storage or a screen. 

For data movement instructions, registers can be specified by the register number or 
label. Storage locations can be specified by a label or base displacement address. 



Load Binary Register 

One or two bytes of a binary register can be loaded from another binary register or 
from a storage address. The register can also be loaded with a constant or with 
the address of a labeled area. A binary register always contains binary notation with 
no sign. The format for loading a binary register is as follows: 

Result Operand 



n 

BRa = •{ storage > 



TBRbtd)]- 

Y 

{ constant 



where: 

Result indicates the binary register into which data is loaded. 

Operand specif ies the data to be loaded into the result binary register. The 
operand may be 1 or 2 bytes in length. If the operand is 1 byte, it is loaded 
into the rightmost byte of the result register, and the leftmost byte of the result 
register is set to zero. The operand is unchanged by the operation. 
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Load with Contents of Binary Register 
Result Operand 

BRa = BRb[(1)] 

The contents of the operand register are loaded into the result register. If the 
operand register specifies a length of 1-byte (BRb(D), the contents of the right- 
most byte of the operand register are loaded into the rightmost byte of the 
result register, and the leftmost byte of the result register is set to zero. If the 
result register specifies a length of 1-byte (BRa(D), the contents of the rightmost 
byte of the operand register are loaded into the rightmost byte of the result register, 
and the leftmost byte of the result register is unchanged. It is invalid to specify a 
1-byte length for both registers. 

Load with Labeled Storage 
Result Operand 

BRa = label [(1)] 

The labeled byte and the next consecutive byte are loaded into the binary 
result register. If a length of 1 is specified (label(D), only the labeled byte 
is loaded into the rightmost byte of the binary register; the leftmost byte of 
the register is set to zero. If the length is omitted, the declared length of the 
label is used; a length greater than two bytes is invalid. 

Load with Base Displacement Storage 
Result Operand 

BRa = [disp] ([len],BRb) 

When this instruction is executed, the displacement (disp) is added to the 
contents of the binary register (BRn) to find the relative address of the leftmost 
byte specified by length (len). The contents of this 1 or 2 bytes are moved into 
the result register. The data in the storage location remains unchanged. If the 
length is omitted, 1-byte is used. 

Load with a Constant 

Result Operand 

BRa= constant 

The constant specified by the operand is loaded into the binary register. Any 
constant less than 16 bits in length is padded on the left with zeros. 
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Load Decimal Register 

One to 16 bytes may be loaded into a decimal register from another decimal 
register or from a storage location. A signed constant may be loaded into the full 
register, or a 1-byte constant may be loaded into a specified offset into the 
register. Data in a decimal register is represented in EBCDIC notation. 

The format to load a decimal register is as follows: 

Result Operand 



r Rb 1 

Ra = \ storage ? 

t constant J 



Load with Decimal Register 

Result Operand 

Ra= Rb 

The contents of the operand register (Rb) replace the contents of the result register 
(Ra). The operand register remains unchanged. 

Load with Labeled Storage 
Result Operand 

Ra= label [(len)] 

The result register is set to blanks (hex 40s). Then the bytes beginning at label 
are loaded into the result register. 

If length (len) is specified, the specified number of bytes are loaded into the 
decimal register and right adjusted. 

If length is not specified, the number of bytes assigned as the length of the label (by 
the .DC control statement that declared the label) are loaded into the decimal 
register and right adjusted. A length greater than 16 is invalid. 

Note: The label must be assigned to a storage location within the first 32 K of 
storage. 
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Example: 

Statements Registers 

.DC LABEL=QTY LEN-10 INIT=4455667788; 



LOADX: RX=QTY(5); Length specified RX 0000000000044556 



LOADY: RY=QTY ; Length omitted 



RY 0000004455667788 



Load with Base Displacement Storage 
Result Operand 

Ra= [disp] ([len],BRn) 

The operand specifies a binary register that acts as a base address register. The 
displacement (disp), if specified, is added to the contents of the base address 
register. The result is taken as the address of the first byte of data to load into the 
result register. If length (len) is included, the number of bytes specified, starting 
at the first byte of the storage area, is moved into the decimal register and right 
adjusted. If length is omitted, it defaults to 1 byte. The result register is set to 
blanks (hex 40s) before the data is transferred. A length greater than 16 is invalid. 

Example: 



BASREG= 178 



Storage Positions 


1 
7 
8 


1 
7 
9 


1 
8 



1 1 
8 I 
1 5 


1 
i 8 

\ 3 


1 
8 
4 


1 
8 
5 


Data 


1 


3 


3 


5 E 


» 7 


7 


9 




, 




■ii i y 




@ = 2 + 178 












I 













The instruction REGX = 2(5,BASREG) would result in: 
REGX 000000000M0355 T~7 

Load with a Signed Constant 
Result Operand 

Ra = ±constant 

The value specified by the operand is loaded into the result decimal register. If the 
sign is negative, the rightmost byte of the decimal register has hex D in the zone 
portion. If the value is positive, the rightmost byte of the decimal register has hex 
F in the zone partition. The data is right adjusted in the decimal register. 
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The constant may be specified as immediate data with decimal or hexadecimal 
digits. Tne maximum decimal value that can be loaded with this operation is 
65 535. The operand may also be an equated constant. You must include the sign 
with an equated label. 

When the operand is a signed constant, the unfilled high-order bytes are padded 
with zeros. 

When the operand is an unsigned single-digit constant (0-9), the unfilled high-order 
bytes are padded with blanks. 

Example: The instruction RX = -345 results in: 



RX 



00 0102 0304 05 06 07 0809 1011 12 131415 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


F 


D 









































3 


4 


5 



Note: If you attempt to load a register with a character, the register is loaded with 
the decimal EBCDIC equivalent of the character. For example, if the specified 
constant is C'A' (hex C1), the register is loaded with 13 leading zeros (hex FOs) 
and F1F9F3 (decimal 193). 



Load with a 1-Byte Constant 
Result Operand 

[offset] ,Ra = constant 

The constant specified by the operand is inserted into the decimal result register 
at the byte specified by offset. The constant may be specified in any of the forms 
described under Constant Specifications in this chapter. 

Example: 



Before 



After 



RX 



0001 02 0304 05 0607 0809 10 1 1 12 1314 15 



rrm 



H 





RX 
=P'A' 


Offset 




000102 0304 050607 08 091011 12 131415 


14,RX= 


\ >i I i 


H|A|T| 






i 



Store at a Labeled Address 

One or more bytes of a decimal or binary register can be stored into a labeled 
storage area. Also, a 1-byte constant can be stored into a labeled storage byte. 
See Addressing Methods under Partitions in Chapter 1 for more information 
about labeled addressing. 
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Data is stored into a labeled address using the following format: 
Result Operand 



label [(len)] 



I BRn V 

[^constant J 



where: 

Result indicates the label of the storage location into which data will be stored. 
Operand indicates data to store. 

Store a Decimal Register 

Result Operand 

label [(len)] = Rn 

If a length (len) is included, the rightmost number of bytes specified by the length 
are moved into the labeled storage area. The storage area begins at the byte 
assigned to label and continues for the number of bytes specified by length. If 
length is omitted, it defaults to the length specified by the .DC control state- 
ment that assigned the label. The labeled location must be within the first 
32 K bytes of a partition. 

Example: 



REG2 



STGE 



0001020304 05 06 07 08 091011 12 1314 15 

E 



I 

STGE(3)=REG2 



000102 03 04 05 06 07 08 091011 121314 15 



glsTTT 



Store a Binary Register 

Result Operand 

label [(len)] = BRn 

If the operand is full binary register, the contents of the two register bytes are 
stored into the byte specified by label, and the next consecutive byte. The result 
storage location must not be specified as more than 2 bytes in length. If the length 
is omitted, the declared length of the labeled area is used. 
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Store a Constant 

Result Operand 

label = constant 

The 1-byte constant specified by the operand is loaded into the labeled byte. 
Only the one labeled byte is changed. The constant may be specified in any of the 
forms described under Constant Specifications at the beginning of this chapter. 



Store at Base Displacement Address 

Data can be stored at a base displacement address. Base displacement addressing 
is described in Chapter 1 under Storage. 

The format for the instructions to store data at a base displacement address is as 
follows: 

Result Operand 



fRn | 

[disp] ([len]),BRn)= < BRn > 

(^ constant J 



where : 



Result indicates the storage area into which data is stored. The binary register 
acts as a base address register. The contents of the base address register (BRn) 
are added to the displacement (0-255), and the result is the address of the first 
of the storage bytes into which data is stored. The number of bytes stored is 
determined by the length specified (len). 

If the result address specifies a location outside the partition, a program check 
error (hex 01 ) occurs. 

Operand indicates the register from which data is moved, or a 1-byte constant. 



Store a Decimal Register 

Result Operand 

[disp] ([len], BRn) = Rn 

The contents of the decimal register specified by the operand are stored into the 
location indicated by result. The contents of the base register (BRn) are added to 
the displacement (disp), and the sum is taken as the address into which the data 
is stored. If length is included (len), the rightmost number of register bytes 
specified by the length are moved into the storage area. The optional length 
defaults to 1 byte. A length greater than 16 is invalid. 
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Store a Binary Register 

Result Operand 

[disp] ([len],BRa)= BRb 

The contents of the binary register specified as operand (BRb) are stored into the 
location specified by result. The displacement (disp) is added to the contents of 
the binary base register (BRa), and the result is taken as the rightmost byte of 
storage into which the contents of the binary register are stored. If the length of 
one is specified, the contents of the low-order byte of the operand register are 
stored. 



Store a Constant 




Result 


Operand 


[disp] (BRa) = 


constant 



The displacement is added to the address in BRa, and the 1-byte constant specified 
by the operand is stored in the byte at the resulting address. Do not specify length 
for this operation, and do not include a comma to the left of the binary register 
as is required for other base displacement addresses. 



Exchange Data 



Data may be exchanged between two registers or between a storage area and a 
binary register. The contents of a binary register may be exchanged with the 
contents of another binary register or a storage location. The contents of a 
decimal register may be exchanged with the contents of another decimal register. 
The format for the exchange operation is as follows: 



Result Operand 

BRa <=> 

Ra <=> 

where: 



{BRbl 
label I 
Rb J 



Result indicates the register into which the data from the operand register is 
placed upon completion of the operation. Data originally in the result register 
is placed in the operand register. 

Operand indicates the register or storage area that exchanges contents with the 
result register. 
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BRa <C-> (Si nary Register Exchange) 

Result Operand 



BRa <=> 



{BRbl 
label J 



The contents of the operand, which may be a binary register or a 2-byte labeled 
storage area, are placed into the result register (BRa). The original contents of 
the result register are placed into the operand register. 



Ra <=> (Decimal Register Exchange) 

Result Operand 

Ra <=> Rb 

The contents of the operand register are placed into the result register, and the 
original contents of the result register are placed into the operand register. 

Convert Register Contents 

The contents of a register or labeled storage area can be converted from binary to 
EBCDIC or from EBCDIC to binary. The convert operation both converts and 
moves the data. Although all data is physically stored as binary bits, the bits may 
represent the binary value or the EBCDIC value of the data. Each byte of decimal 
EBCDIC data is divided into a zone portion and a digit portion. Therefore, to 
express the value of one byte of binary data requires 1 byte of EBCDIC or 2 bytes 
of hexadecimal EBCDIC. EBCDIC data, however, can be displayed on the screen. 
Binary data must be converted to EBCDIC in order to be displayed. For example, 
B'1 1111000' con verts to EBCDIC F2F4F8 with decimal conversion and can be 
displayed as 248. With hexadecimal conversion, B'1 1 1 1 1000' converts to 
EBCDIC C6F8 and can be displayed as F8. The format of the convert operations 
is as follows: 

Mnemonic Result Operand 

Rn = BRn 

BINDEC (Rn ,label[(2)]) 

BINHEX (label [(len)], BRn) 

HEXBIN (BRn, label [(len)]) 

BRn = Rn 

DECBIN (label [(2)], Rn) 

where: 

Result indicates the register or labeled storage location into which the converted 
data is moved. 

Operand indicates the register or storage location that holds data to be converted 
and placed into result register or storage location. The operand remains 
unchanged. 
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Rn = (Convert Binary to Decimal) 

Result Operand 

Rn= BRn 

The contents of the operand register (BRn) are converted to decimal, and the 
decimal value is loaded into the decimal register specified as result (Rb). The 
decimal value is represented as positive in the result register. 

The operand register contains the original binary notation upon completion of 
the operation. 

BIN DEC (Convert Binary Storage to EBCDIC) 
Mnemonic Result Operand 

BINDEC(Rn, label [(2)]) 

The contents of the 2-byte labeled storage area are converted from binary to 
EBCDIC and placed into the decimal register. 

The storage area must be 2 bytes in length. You may specify the length in the 
instruction, or you may omit the length if the area was declared as 2 bytes in length. 

BIN HEX (Convert Binary to EBCDIC Storage) 
Mnemonic Result Operand 



«■ 



BINHEX (label [( < A > )], BRn 



The contents of the operand binary register (BRn) are converted to an equivalent 
hexadecimal EBCDIC, and the hexadecimal EBCDIC value is loaded into the 2-byte 
or 4-byte storage area specified by the label. 

The length of the storage area may be specified in the instruction. If the length is 
omitted, it defaults to the length specified by the .DC control statement that 
labeled the storage area. Only 2 or 4 are valid for length. If a length of 2 is 
specified, only the rightmost byte of BRn is used. 

The contents of the binary register are converted to 2 or 4 (depending on the 
length of the storage area) hexadecimal EBCDIC characters and stored into the 2 or 
4 storage bytes. 
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HEXBIN (Convert Hexadecimal EBCDIC Storage to Binary) 
Mnemonic Result Operand 

HEXBIN (BRn, label [( \ 2 .\ )]) 



ft 



The hexadecimal EBCDIC values at the storage location specified by the label 
are converted to binary and loaded into the binary register specified by BRn. 

The length of the storage area may be specified in the instruction, or it may 
default to the length specified by the .DC statement that labeled the area. Only 
2 or 4 is valid for the length. 

If the length of the storage area is four bytes, the 4 hexadecimal EBCDIC 
characters in the storage area are converted to 2 bytes of binary notation and 
placed into the binary register specified by result. If the length of the storage 
area is 2 bytes, the 2 hexadecimal EBCDIC characters are converted to 1 byte of 
binary notation and placed into the rightmost byte of the binary register; the 
leftmost byte remains unchanged. If the storage area contains any values other 
than '0-9' or 'A-F', 11 19 is set and the register contents are unpredictable. 



BRn = (Convert Decimal to Binary) 

Result Operand 

BRn = Rn 

The contents of the operand register are converted to binary notation, and the 
binary notation is loaded into the result register. If the contents of the decimal 
register are negative, or if the binary register overflows, the overflow indicator 
(1124) is set on. 

DEC BIN (Convert EBCDIC to Binary Storage) 
Mnemonic Result Operand 

DECBIN (label [(2)], Rn) 

The contents of the decimal register are converted to binary and stored in the 
2-byte labeled storage area specified by result. 

The length of the storage area must be 2 bytes. You may specify the length in the 
instruction, or you may omit the length if the area was declared as 2 bytes in 
length. 
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Move Bytes Between Decimal Registers 

One or more bytes can be moved from one decimal register to another. The bytes 
can be moved to corresponding positions or to different positions in the receiving 
register. 

The format to move the partial contents between decimal registers is as follows: 

Mnemonic Result Operand Offset Length 

/moff) 



|mverj 



(Ra, 



Rb 



[ # 0-15, 1-16]) 



where : 

Results indicates the decimal register to which the data is moved. 

Operand indicates the decimal register from which the data is moved. 

Offset specifies the offset of the leftmost byte to which data is moved. Offset 
defaults to zero. 

Length specifies the number of bytes (1-16) that are moved. Length defaults to 1 . 

MOFF (Move to an Offset) 

Mnemonic Result Operand Offset Length 

MOFF (Ra, RB [,0-15 ,1-16]) 

The rightmost number of bytes specified by length are moved from the operand 
register to the result register. The data is moved from left to right and placed in 
the result register at the byte specified by offset. 

The offset applies only to the result register (Ra), so the move is not limited to 
corresponding byte positions. 

Note: If the sum of offset and length is greater than 1 6, bytes are moved into the 
register following the result register. 

Example: 



000102 03 04 05 0607 08 091011 12 13 14 15 
Before: RX |1 |1 |2 |2 |3 |3 |4 |4 |5 |5 |6 [6 |7 |7 |8 l8 | 



000102 0304 05 0607 08 09 1011 12131415 


RY (9*9 9 9 9 9 9 9 9 9 9 9 9 9 9~T9~1 









MOFF(RX,RY,4,7) 



00 0102 03 04 05 06 07 08 09 1011 12 131415 
After: RX |1 J1 |2 \2 |9 [9 |9 |9 |9 [9 j9 |6 |7 [7 |8 |8 | 
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MVER (Move to Corresponding Bytes) 
Mnemonic Result Operand 

MVER (Ra, Rb 



Offset Length 

[,0-15 ,116] ) 



The number of bytes specified by length are moved from the operand register to 
the result register. The data is moved from left to right, starting at the offset in 
the operand register and placed in corresponding positions, starting at the offset, in 
the result register. 

The offset applies to both the operand and the result register, so the data is 
always moved to corresponding positions in the result register. 

Note: If the sum of offset and length is greater than 1 6, bytes are moved into the 
register following the result register. 

Example: 



000102 0304 05 0607 08091011 121314 15 
Before: RX |1 |1 1 |1 



3 3 



00 0102 03 04 050607 08091011 12131415 



7 |7 j7 |7 | RY |0 |0 |0 |0 12 |2 |2 \2 |4 |4 |4 |4 |6 |6 [6 |6 | 



I r 

MVER(RX,RY,4,7) 



I 



000102 03 04 05 0607 08 091011 12 1314 15 
After: RX |1 J1 |1 J1 |2 |2 \2 \2 |4 J4 |4 J5 j7 |7 |7 |7 | 



Move Bytes in Storage 

From one to 256 bytes can be moved to another storage address within the same 
partition. 



Mnemonic Result Operand 



{MVC ^ 
MVCR > 
MVCvJ (BRa, 



BRb. 



Length 



1-256) 



where: 



Result indicates a binary register that contains the address, relative to the start 
of the partition of the leftmost byte into which data is moved. 

Operand specif ies a binary register that contains the address of the leftmost 
byte from which data is moved. 

Length specifies the number of bytes to move. The specification is a decimal 
constant (1-256). 
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MVC (Move Characters) 

Mnemonic Result Operand Length 

MVC (BRa, BRb, 1-256) 

The number of consecutive bytes specified by length are copied from the storage 
location, beginning at the byte specified by the contents of the operand register 
(BRb), into the location beginning with the byte specified by the contents of the 
result register (BRa). 

Data is moved starting with the leftmost byte and continuing to the rightmost byte. 

Example: 

.DC LABEL=FLD1@ TYPE=BIN INIT=ADDR(FLD1); 
.DC LABEL=FLD2@ TYPE=BIN INIT=ADDR(FLD2); 

FLD1 |W X Y Z| FLD1 jA 8 J Z I 

Before: MVC(FLD1@,FLD2@,3) After: _~~ 

FLD2 |A B C D| FLD2 |A B C D| 

MVCR (Move Characters Right to Left) 

Mnemonic Result Operand Length 

MVCR (BRa, BRb, 1-256) 

The number of bytes specified by length are copied from the storage location 
indicated by the operand register (BRb) into the location specified by the result 
register (BRa). 

Data is copied starting with the rightmost of the operand bytes specified by 
length and continuing to the leftmost byte. This instruction is useful for moving 
data into overlapped fields. 

Example: 

.DC LABEL=FLD1@ TYPE=BIN INIT=ADDR(FLD1); 
.DC LABEL=FLD2@ TYPE=BIN INIT=ADDR(FLD2); 

FLD2 FLD2 

FLD1 FLD1 

Before: r—>^ ' MVCR(FLD1@,FLD2@,5) After: , *-^ S 

lABCDEFGHl GHFGHFGH 
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MVCV (Move Characters Reverse) 

Mnemonic Result Operand Length 

MVCV (BRa, BRb, 1-256) 

The number of bytes specified by length are copied from the storage location 
specified by the contents of the operand register (BRb) into the location specified 
by the contents of the result register (BRa). 

While the data is copied from one location to the other, the order of the bytes is 
reversed. 

Data is copied from the location specified by the operand register (BRb) from left 
to right; the data is copied into the address specified by the result register (BRa) 
from right to left. 

Example: 

.DCLABEL=BRX TYPE=BIN INIT=ADDR(STRX); 
.DC LABEL=BRY TYPE=BIN INIT=ADDR(STRY); 



STRX | A B C D E | 



— ^U 

STRX . JA~B CPE 



Before: MVCV(BRY,BRX,3) After: C 

< lC B A 



STRY IV W X Y Z | STRY JC B A Y Z\ 



Move Bytes Between Storage and Screen 

Data bytes may be moved directly between the display screen refresh area and main 
storage. No formatting is done. Bytes are moved to or from any position in the 
refresh area. A binary register is specified to contain the absolute address within 
the refresh area, or the position on the screen. If a screen position is used, the 
high-order byte contains the row number and the low-order byte contains the 
column number. 



Row Column 



Brn 00001100 00001011 

If row is indicated, the bytes are moved to the status line. If row 1 is specified, 
the bytes are moved to the top line of the screen, which is not displayed when 
the status line is being displayed. If the position specifies column 0, external 
status condition 10 (invalid operation) occurs. 

Be careful to specify a valid screen position. If the position operands point 
outside your screen, they may point to an area of control information within the 
keyboard/display; this results in external status condition 10. Invalid position 
operands may also point to the area of another display screen; in this case, the 
move proceeds and overwrites the data on the other screen. 
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The formats of instructions to move data between storage and screen are as 
follows: 

Mnemonic Result Operand Length Attributes 

CRTMM (BRa, BRb, BRc [, \ ^° \ ) ) 



■■{*} 



MMCRT (BRa, BRb, BRc ) 

where: 

Result is a binary register that contains the address of the first storage byte or 
screen position to which data is moved. 

Operand is a binary register that contains the address of the first storage byte 
or screen position from which data is moved. 

Length is a binary register that contains the number of bytes, minus one, to 
move. The number may be from one to the maximum number of positions 
on the screen. 

Attributes may be included with the CRTMM instruction to determine the 
display of the bytes. They are described with the CRTMM operation description. 

CRTMM (Move to Screen) 

Mnemonic Result Operand Length Attributes 

CRTMM (BRa, BRb, BRc [, P C }]) 



The number of bytes indicated by the length register (BRc) are moved from storage 
to the screen. The bytes are moved beginning at the address indicated by the 
contents of the operand register (BRb) to the address or screen position specified 
by the contents of the result register (BRa). If the attributes parameter is omitted 
in the instruction, the bytes are translated from EBCDIC notation to display 
codes (using a translate table in keyboard/display storage) before they are placed 
into the screen refresh buffer and displayed on the screen. Most data that is moved 
to the screen requires this translation so the proper display graphics appear on the 
screen. EBCDIC values from hex 20 through 3F are translated to display 
attributes that alter the appearance of the screen, such as blank and underscore. 
Therefore, any data that may contain display attributes, such as prompts, should 
be moved to the screen in this way. 

If NC is specified for the attributes parameter, the bytes are not translated as they 
are moved from main storage to the screen refresh buffer. Data that has been 
moved directly from the screen refresh buffer can be returned in this way. 
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it tne 5 is specmea Tor tne attriDutes parameter, tne Dytes are transiatea tnrougn 
the translate table; however, before translation all EBCDIC values in the attribute 
range (hex 20 through 3F) are changed to hex 1 F. Hex 1 F translates to a solid 
rectangle in the translate table. This allows actual data, which may contain hex 
values between hex 20 and 3F, to be moved to the screen without affecting the 
appearance of the screen. All hex values between 20 and 3F appear as solid 
rectangles on the screen; the EBCDIC data in main storage is not altered. The hex 
value position on the status line displays the hex value of the positions that are 
displayed as solid rectangles if they appear within a screen format field when an 
ENTR is being processed. 



MMCRT (Move to Storage) 

Mnemonic Result Operand Length 

MMCRT (BRa, BRb, BRc) 

The number of screen positions indicated by the length register (BRc) are moved 
from the screen to storage. The data is moved beginning with the location 
specified by the operand register (BRb) to storage, beginning at the address 
specified by the result register (BRa). The display on the screen remains unchanged. 

Example: The following code moves data from the screen to storage locations 
labeled LETRS1, LETERS2,and NUMBS. 



.DCLBR LABEL=TO@,FROM@,LNGTH; 

TO@=ADDR(LETRS1); 

FROM@ = X'0302'; screen position row 3, column 2 

LNGTH = 7-1; 

MMCRT(TO@,FROM@,LNGTH); moves 'ABC DEF' into LETRS1 

TO@ = ADDR(LETRS2) + 4; 

FROM@ = X'0306'; screen position row 3, column 6 

LNGTH = LENG(LETRS2) - 4; 

MMCRT(TO@,FROM@,LNGTH); moves 'DEF' into LETRS2 

TO@ = ADDR(NUMBS) + 2; 

FROM® = X'0502'; screen position row 5, column 2 

LNGTH = 5-1; 

MMCRT(TO@,FROM@,LNGTH); moves 12345 into NUMBS 





1 2 3 


4 5 6 7 8 9 




1 






2 






3 A B 


C DEF 




4 




Rows 


5 1 2 

6 

7 

8 

9 

Storage 

LETRS1 

LETRS2 

NUMBS 


3 4 5 




|ABC DEF| 




1 DEF| 




| 123451 
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Move Formatted Data 

The following instructions move data according to a specified edit format. The 
edit format is set up by the .FMT control statements, which specify: 

• The storage areas to or from which data is moved (DCLBL) 

• The length of the data (LEN) 

• The editing of the data fields (EDIT) 

The edit format can convert data to decimal, to binary, or to hexadecimal 
notation. Field punctuation, such as a fixed dollar sign, a floating dollar sign, a 
decimal point, sign control, and fill characters are specified by the format editing. 

The instructions for formatted moves are as follows: 

Mnemonic Operandi Format Operand2 Operand3 



REBF 


(BRa, 


|w-ij , 


1 


WRBF 


(BRa, 


label 


[,BRb] ) 


WFMCRT 


(BRa, 


label 


[,BRb , 



\ ADD/ 



]) 



where: 

Operandi specifies a binary register that contains an address. 

Format indicates the formatting of the data. 

Entry Description 

label is the LABEL parameter of the .FMTST control statement that 

set up the edit format you wish to use. 

* may be specified instead in the REBF instruction to indicate that 

formatting is data directed. See Data Directed Formatting in 
Chapter 2 for more information. 

Operand2 is an optional entry that may be specified for WRBF or WFMCRT and 
is discussed in the operation descriptions. 

Operand3 may be specified only for WFMCRT and is discussed in the WFMCRT 
operation description. 
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REBF (Read to Format Specifications) 



Mnemonic Operandi Format 

REBF (BRa 



{.*.,} 



Data bytes, beginning at the address specified by the contents of the binary 
register (BRa), are moved into the location specified by the DCLBL parameter of 
the edit format. The number of bytes moved is determined by the LEN parameter 
of the format, and editing is controlled by the EDIT parameter of the format. 

In normal formatting, the instruction specifies the format label (LABEL 
parameter from the .FMTST statement). For data directed formatting, the 
instruction specifies an asterisk (*) instead of a label. 

Example: The following code moves data from a storage location pointed to by 
BUFR according to a format labeled FMT6. 



Before: 01 02 0304 05 06 07 08 09 10 1 1 12 1314 151617 1819 202122 
BUFR It 1 7 6 4 C 4 



$ 1 4 



2 9 



14 7 8 



.FMTST LABEL = FMT6 

.FMTFLD DCLBL = ITEM# TYPE=DEC 

.FMTFLD DCLBL = ITEM$ TYPE=DEC 

.FMTEND DCLBL = ONHAND TYPE=DEC 

REBF (BUFR, FMT6) ; move data 



LEN = 8 
LEN = 7 
LEN = 5 



After: < 



; set up format 
COL = 1; 
COL = 9 
COL = 18; 



EDIT = $$,DP.02; 



ITEM# 
ITEMS 
ONHAND 



[ T17064C4] 

| 000000000000 1429| 



C 



1478| 



WRBF (Write Format to Storage) 

Mnemonic Operandi Format Operand2 

WRBF (BRa, [label] [,BRb] ) 

You can omit the format and include the binary register if you want to blank the 
buffer. This is the best way to blank a buffer that is longer than 256 bytes. The 
binary register can specify up to 65 535 bytes to blank. The 5280 does not check 
to ensure that you do not exceed your partition size. 

The contents of the locations specified by the labeled format are moved to the 
address specified by the operandi binary register (BRa). If the operand2 
binary register (BRb) is included, the contents of this register are taken as the 
number of bytes to blank, beginning at the location specified by the first binary 
register, before the move is performed. If the second binary register is not 
included, no bytes of the storage location are blanked. 
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WFMCRT (Write Format to Screen) 

Mnemonic Operandi Format Operand2 Operand3 



\add/ 



WFMCRT (BRa , label [,BRb , i A ™H) 



Data is moved to the screen, beginning at column 1 of the row specified by the 
low-order byte of the operandi register (BRa). Data is moved from the locations 
specified by the labeled edit format, for the number of bytes specified by the 
format. The format also specifies any punctuation that should appear on the 
screen, such as a dollar sign, decimal point, or minus sign. The format must not use 
more than 200 screen positions. If row is specified, data is moved to the status 
line; if row 1 is specified, data is moved to the extra line. If operand2 specifies a 
binary register (BRb), the contents of this register are taken as the number (1-200) 
of screen positions to alter before the formatted data is moved to the screen. 
Operand3 specifies how to alter the screen. 

If B is coded for operand3, all characters on the screen between the data fields 
that are defined in the edit format are blanked for the number of bytes specified 
in operand2. 

If ADD is coded for operand3, only the fields that are defined in the edit format 
are changed on the screen; the characters between the edit format fields remain 
on the screen for the number of bytes specified by operand2. 

If operand2 and operand3 are omitted, and if the edit format does not account for 
all the positions on the screen within the edit format, the results are unpredictable. 

Note: The fields must be in the order they appear on the screen. 



PARTITION LOAD AND EXIT INSTRUCTIONS 

During IPL, the IPL utility can load a program into any 5280 partition. The IPL 
utility prompts the operator to enter the appropriate load parameters via the 
keyboard. At any time after IPL, a program currently executing within a 
partition can load another full or partial program into any available partition. The 
executing program either prompts the operator to enter the load parameters via 
the keyboard or obtains the load parameters from main storage. The LOAD 
instruction, issued by the executing program, specifies which method is used to 
obtain the load parameters. 

The EXIT instruction makes a partition available to be loaded with a program. 

If an error occurs during a load operation, the 5280 can handle error recovery, 
or you can write your own error recovery procedures. 

At IPL, every partition can be loaded with a LOAD instruction. Then, any 
partition which has executed an EXIT instruction is available to be loaded by any 
partition that has a LOAD instruction. 
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program has completed its execution, the current partition can be reloaded with 
another program. Or, the EXIT instruction can be included at the end of a 
program, making the partition available to be loaded by another partition. In either 
case, the load parameters may be obtained from storage or from the keyboard. 

An EXIT instruction should not be issued from a foreground partition. 11 10 is on 
if the partition is a background partition. The normal way to handle the End of Job 
key is to test 1110; if it is on issue an EXIT instruction; if off, call the Standard Load 
Processor. See Chapter 6 under Common Function Routines for a description of the 
standard load processor. 



Load a Partition 

The format for the LOAD instruction is as follows. 

Mnemonic Parameters Operand 

LOAD ([label] [,PA,E]) 

where: 

Parameters may specify the label of the storage area where the load parameters 
have been stored. The load parameters are described in this chapter. If the 
label is omitted, the operator will be prompted to enter the load parameters 
from the keyboard, using a global load. 

Operand describes the kind of load to execute, as follows. 

Entry Description 

P Specifies that the load is a partial overlay into the current 

partition. If P is omitted, a full partition load is executed. If P is 
coded, the load parameters label must be specified, and must include 
the relative address where the partial overlay begins. This 2-byte 
address must be on a 256-byte boundary and must be greater than 
hex 0100. You may not perform a partial overlay if you are using 
the standard-load-processor prompt. (The standard load processor 
is described in Chapter 6 under Common Function Routines.) See 
Partial Overlay later in this chapter for more information. 

A Specifies that, if a foreground partition is loading a background 

partition, the foreground partition attempts to attach the back- 
ground partition after it is loaded. If the attach fails, the load is 
not affected. If the A is not specified, no attach is attempted. 

E Indicates that, in case of error during the execution of the 

LOAD instruction, you have provided error recovery instructions. 
If the error occurs, control passes to the first instruction following 
the LOAD. If the load operation is successful, control passes to 
the second instruction following the LOAD instruction. 

If E is omitted, system error recovery is used. If E is specified 
and you load the current partition, E is ignored. 
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If an executing program loads a program (other than a partial overlay) into a 
different partition, the newly loaded program begins execution in the newly 
loaded partition, and the next sequential statement following the LOAD 
instruction is executed in the current partition. 

If an executing program loads a different program into the partition in which it 
is currently executing, all open data sets within the current partition are closed, 
all outstanding keyboard operations or enter commands are completed, the new 
program is loaded, and the newly loaded program begins execution. 

A newly loaded program begins execution with the statement specified by the 
ENTRY parameter of the .START statement. If the ENTRY parameter is not 
specified, the execution begins with the first executable instruction in the 
program. 



Exit a Partition 

The EXIT instruction may be issued in a foreground or background partition. 
The instruction is used to make a partition available to be loaded. 

The format of the EXIT instruction is as follows. 

Mnemonic 

EXIT 

If the EXIT instruction is issued in a background partition, a flag is set in the 
system control area to indicate that the partition is available to be loaded. This 
flag must be set for the background partition to be loaded by another partition. 

If the EXIT instruction is issued in a foreground partition, a flag is set in the 
partition control area to indicate that the partition is available to be loaded. The 
flag in the system control area is not set; this allows the 5280 to process keystrokes 
in the exited partition. 

In both foreground and background partitions, the exit operation also detaches 
the partition if it was attached to a keyboard. It closes all open data sets, and it 
forces a system unlock in case the partition was locked when the EXIT instruc- 
tion was issued. 

The Load Parameters 

When the load parameters are placed into a main storage location (instead of 
being read from the keyboard), they are placed into a 43-byte area. The load 
parameters include the partition number, the device ID or address, an optional 
start address, and the data set name. 

Partition Number: Two bytes in length, the partition number specifies the parti- 
tion to load. The first byte contains the partition number (hex to F). If both 
bytes contain blanks, the current partition is reloaded. 



5280 Assembler Language Instructions 235 



examples: 

XT640' Load the partition number 6. 
X'4040' Reload the current partition. 

Device ID: Four bytes in length, the device identification specifies the device 
that contains the data set identified by the Name parameter. The device ID 
consists of either a 2-character logical ID defined in the resource allocation table 
or a 4-byte physical device address. If the last 2 bytes contain blanks, the first 
2 bytes contain the logical device ID that is stored in the resource allocation 
table. Otherwise the 4 bytes contain a physical address. The first 2 bytes of the 
physical address contain the last 2 bytes of the storage address of the I OB 
pointer, which is in the system control area, for that device. The last byte 
contains the device subaddress or zeros. Only the printer uses device subaddresses. 

Examples: 

C'DT The physical address of D1 is in the resource allocation table. 

C'4400' This is the physical address of a diskette. 

Start Address: Two bytes in length, the start address is used only when loading 
a partial overlay. The start address must be greater than hex 100 and must fall on a 
256-byte boundary. 

If you are not loading a partial overlay you must include these 2 bytes but they are 
ignored. 

Examples: 

X'OCOO' 256 byte boundaries always have hex 00 
X'1 F00' as the last two hex digits. 

Data Set Name: A maximum of 36 bytes in length, the data set name consists of an 
optional volume ID and the mandatory name of the data set to load. No blanks are 
allowed within the data set name, but the data set name must end with a blank. 

The volume ID is specified only if volume checking is desired. The volume ID 
may be up to six alphameric characters, must be preceded by an asterisk, and must 
be followed by a period. 

The name may be up to 8 alphameric characters for an H, I, or basic exchange data 
set. For an E exchange data set the name may be up to 17 bytes consisting of one 
or more simple names of up to 8 alphameric characters, with each simple name 
separated by a period. For example, PROG1.PART1.A is a data set name consist- 
ing of three simple names. 

The final blank must follow the name. 
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Partial Overlay 



By using a partial overlay, you can spot load a section of object code or data 
into a partition without destroying the program already in the partition. You 
load a partial overlay by specifying a start address in the load parameters. The 
start address is the storage address where you want the overlay to begin. The 
original contents of the partition remain unchanged except in the area of the 
overlay. When the partial overlay load operation is completed, control returns 
to the instruction following the LOAD instruction. The first 8 bytes of each 
partial overlay contain information that is added by the assembler. 

Specify OPTION=SUB on the .START control statement when you code a 
partial overlay. 



Error Recovery 



Two methods of error recovery can be used if an error occurs during the execu- 
tion of a LOAD instruction. The first method is to write your own error recovery 
procedures. The second is to let the 5280 handle the errors. 



User-Defined Error Recovery 

When a program instruction loads a data set into another partition, the load 
instruction can indicate that user defined error recovery procedures will handle 
error recovery. If the load operation is successful, control returns to the second 
instruction following the load instruction. If an error occurs during the load 
operation, the system places the error code into a system binary register (BR16) 
and returns control to the first instruction following the load instruction. This 
instruction usually branches to the error recovery procedures. 



System Error Recovery 

There are four types of error recovery procedures, depending on the type of load 
taking place when the error occurred. When any type of error occurs, the system 
sends an error message to the screen and waits for the operator to press the Reset 
key. After the reset, error recovery is as follows for the different types of loads: 

Global load, using the standard load prompt from the common function area to 
prompt for the load parameters to be entered from the keyboard. After reset, 
the load prompt is redisplayed with the error information that was entered. The 
operator can then enter the correct information. 

Program instruction reloading the same partition, with the standard load prompt 
in the common functions area available. 

After reset, the standard load prompt is displayed, which prompts for the load 
parameters to be loaded from the keyboard. 
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Program instruction reloading the same partition, with no standard load prompt 
available. There is no way to retry this type of load. The main microprocessor 
issues an exit instruction and goes to the next partition. The partition that was 
being loaded is available to be loaded by another partition. 

Program instruction loading another partition. After reset, the load instruction is not 
retried. The partition that was being loaded is made available to be loaded by 
another load instruction following the load instruction. 



TABLE INSTRUCTIONS 

The table instructions are divided into global table, table read, table write, and 
table search instructions. These instructions operate on tables set up by TABLE 
control statements. 

The table instructions do not operate on label tables set up by the .LABTAB 
control statements. The .LABTAB label tables are used only to make indexed 
branches, as with a CALLTB or GOTAB instruction. 

The .TABLE control statements build the system table that handles the data 
tables. Each data table in your program is represented by an entry in this system 
table. Each system table entry contains the data table address, argument length, 
number of bytes between arguments, maximum number of arguments, and the 
number of arguments currently within the table. A source table instruction 
specifies tha table label. The assembler places in the object code instruction the 
index where the entry for that label is found in the system table. The system 
table address is stored in the partition control area. The 5280 has access to all 
the table parameters each time a table instruction is executed. 

Table instructions for read, write, and search operations specify the table label, 
a binary register, and a decimal register. The binary register holds the table index, 
and the decimal register holds the table argument. More than one decimal register 
may be needed, depending on the length of the argument. The 5280 uses the 
smallest number of decimal registers necessary to hold the argument. (The 
decimal register specification refers to the leftmost decimal register if more than 
one is used.) The argument for a table operation is the rightmost n bytes of the 
decimal register or registers, where n is the value given to the ARGL parameter of 
the .TABLE control statement. 

If an error occurs during a table operation, an indicator is set on. The indicators 
used for table errors are as follows: 

Indicator Meaning If 1 

1125 Table search is unsuccessful. 

1126 Invalid index, or table is too small to accept an added entry. 

1127 A table error occurred. When 1127 is on, either 1125 or 1126 is also 
set on. 

Note: The 5280 does not turn these indicators off after the operation has completed. 
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Table Read Operations 

Table arguments are read into one or more decimal registers. Either the last table 
entry or the entry at a specified index can be accessed. The format for table read 
instructions is as follows: 

Result = Mnemonic Table 



f TBRD 1 „ L . __ . 



where: 



Result indicates a decimal register, or the leftmost of the decimal registers, 
into which the table argument is read. 

Table indicates the table and the table index. The entry is the table label 
(LABEL parameter from the TABLE statement that entered the table into the 
system table) and a binary register to hold the appropriate table index. 



TBRD (Read Table Entry at Specified Index) 

Result = Mnemonic Table 

Rn= TBRD (label, BRn) 

The argument of the table specified by label, at the index specified by the binary 
register (BRn), is read into the register specified by result (Rn). If the argument 
length is greater than 16 bytes, consecutive registers to the right of Rn are used. Data 
is right adjusted into the smallest number of decimal registers necessary to hold 
the argument. The unfilled leftmost bytes of the decimal register are not changed. 
The argument length is specified by the ARGL parameter of the TABLE statement. 

TBRL (Read Last Table Entry) 

Result = Mnemonic Table 

Rn= TBRL (label, BRn) 

The last argument of the table specified by label is read into the decimal register 
specified by result (Rn). If the argument length is greater than 16 bytes, consecutive 
decimal registers are used. The argument is right adjusted into the smallest 
number of decimal registers necessary to hold the argument. The unfilled 
leftmost bytes of the decimal register are not changed. The argument length is 
determined by the ARGL parameter of the TABLE statement. 

The index of the last table argument is loaded into the binary register specified 
(BRn). 
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Example: 



Before: 



RX 



000102 0304 05 0607 08 091011 121314 15 
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7 
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7 


7 



000102 0304 05 0607 08 091011 12131415 



BRY [0 |Q |0 |Q JO |0 |0 |Q lQ |Q [0 |Q \Q |1 |1 |0 | 
RX = TBRL(TABX f BRY) 



After: 
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1 12345 

2 23456 
r— 3 34567 



Table Write Operations 

Table arguments can be inserted, deleted, and written at a specified index. 
Arguments can be added to variable length tables. The format for these instructions 
is as follows: 



Mnemonic 


Table 


Argument 


TBDL 


(label,BRn) 




TTBIN ^1 






\ TBWE \ 


(label,BRn) 


= Rn 


ItbwtJ 







where: 



Table indicates the table and the table index. The entry is the table label 
(LABEL parameter from the TABLE statement that entered the table into the 
control table), and a binary register (BRn) to hold this table index. 

Argument indicates a decimal register, or the leftmost of the decimal registers, 
that hold(s) the table argument to be written. The length of the argument is 
determined by the ARGL parameter of the TABLE. The argument register 
(Rn) is not indicated for the delete operation (TBDL). 



TBDL (Delete Table Entry at Specified Index) 
Mnemonic Table 



TBDL 



(label,BRn] 



The table entry at the index specified by the binary register (BRn) is deleted from 
the table. Entries below the point where the deletion is made are moved upward 
to fill in the space made by the deletion. 
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Example: 



Before: 1 
2 
3 



BRX 



Q 



TABY 



1111 



2222 



3333 



TBDL(TABY,BRX) 



BRX!"!! 



TABY 



After: 1 
2 



1111 



3333 



TBIN (Insert Table Entry at Specified Index) 
Mnemonic Table Argument 

TBIN (label,BRn)= R n 

The argument held in the decimal register or registers (Rn) is inserted into the 
table specified by label, at the index specified by the binary register (BRn). The 
number bytes inserted is determined by the ARGL parameter of the .TABLE 
statement. 

All table entries currently below the inserted entry are moved downward. This 
includes the entry that was previously in the table position where the new entry 
is inserted. The number of entries in the table is increased by 1, and the index 
to the new table entry is loaded into the binary register specified by BRn. 



TBWE (Extend Table and Write Entry) 

Mnemonic Table Argument 

TBWE (label,BRn) = Rn 

This instruction extends a variable length table and writes the contents of the 
decimal register (Rn) beyond the current last entry in the table. The length of the 
argument to be written is determined by the ARGL parameter of the TABLE 
statement. 

The number of entries in the table is increased by 1 , and the index to the new table 
entry is loaded into the binary register specified by BRn. 

Note: Maximum table size is determined by the MAXM parameter of the TABLE 
statement. Any attempt to extend the table beyond MAXM results in an error. Use 
caution in estimating maximum sizes of variable length tables. 
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Example: 



Before: 



After: 



BRY 





RX 




44444 



TAB9 



11111 
22222 



33333 



TBWE (TAB9,BRY) = RX 



-BRY|~4~ 



TAB9 



1 


11111 


2 


22222 


3 


33333 


4 


44444 



TBWT (Write Table Entry at Specified Index) 
Mnemonic Table Argument 

TBWT (label, BRn) = Rn 

The contents of the decimal register (Rn) are copied into the table specified by 
label, at the entry position indicated by the contents of the binary register (BRn). 
The number of bytes written into the table is determined by the ARGL parameter 
of the TABLE statement. 

Example: 



Before: RX I 999999 1 
BRY I 3| 



TABX 



1 


666666 


2 


mm 


3 


888888 



TBWT(TABX,BRY) = RX 



After: 



TABX 



RX I 999999| 


2 


UKY | o|~ 





666666 



777777 
999999 
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Table Search Operations 

Tables can be searched to find an entry equal to, lower than, or higher than a 
specified argument. A table can also be searched using a binary search. The 
following indicators are turned on to indicate the result of the search. 



Indicator Result 

1101 Higher entry found 

1102 Lower entry found 

1103 Equal entry found 
1125 Entry not found. (Must be reset by your program. 



J hav< 



ly one of these will be on; it does not 
have to be reset.) 



The number of bytes used in the search are the rightmost n bytes of the decimal 
register or registers specified, where n is the value given to the ARGL parameter 
of the TABLE control statement. 

The format of the search instructions is as follows: 

Result = Mnemonic Table 

BRn = TBBS (label, Rn) 



{TBFH^I 
TBFL > (label, Rn [,N] 

TBFxJ 



where: 

Result indicates a binary register (BRn) into which the index of the table 

entry selected by the search operation is placed upon completion of the operation. 

Table specifies the search parameters. 

Parameter Description 

label The label of the table to search. 

Rn A decimal register that contains the argument to be searched for. 

The argument data is right adjusted within the register. 
N May be specified on any search except the TBBS. If N is coded, 

the search begins with the next entry after the current index 

contained in the binary register (BRn). If N is not coded, the 

search begins with the first entry. 

TBBS (Binary Search for Equal Table Entry) 
Result - Mnemonic Table 

BRn = TBBS (label, Rn) 

The labeled table is searched, by binary search, to find a table entry equal to the 
data contained in the decimal register (Rn). The entries of the table being 
searched must be in ascending order. 
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If sn entry is found in the table that equals the search argument in the decimal 
register, the index of that entry is placed into the specified binary register (BRn). 
Indicator 1103 is set on. 

If no equal entry is found, 1125 and 1127 are set on. BRn remains unchanged. 

Example: 



Before: 



RY[ 



666 



BRX 



IJ 



BRX = TBBS(TAB8,RY) 
After: 



RY | 666 1 
BRX 1 3k 



TBFH (Search for Equal or Higher Entry) 
Result Mnemonic Table 



BRn 



TBFH 



(label.Rn [ f N]) 



The labeled table is searched for an entry equal to or higher than the data 
contained in the decimal register (Rn). The entries in the table to be searched 
must be in ascending order. 

If N is not coded, the search begins with the first table entry (index 1 ). If N is 
coded in the instruction, the search begins with the next sequential index after 
the index currently held in the binary register (BRn). 

The search ends when the first equal or higher entry is found or when all table 
entries between the beginning of the search and the end of the table have been 
searched. If an equal or higher entry is found in the table, the index of that 
entry is placed into the binary register (BRn). If no equal or higher entry is 
found, 1125 and 1127 are set on. BRn remains unchanged. 

Example: 



TAB8 



1 


456 


2 


556 


3 


666 


4 


677 



TABX 



BRX = TBFH (TABX,RY,N) 



Before: 



ry | nnin\ 



BRX 



After: 



RY | 7777777| 



BRX 



1 


3333333 


2 


4444444 


3 


6666666 


4 


8888888 



The first entry searched was at index 3. 



TBFL (Search for Lower Entry) 

Result = Mnemonic Table 



BRn = 



TBFL 



(label, Rn [,N] 



The labeled table is searched for an entry that is lower than the data contained in 
the decimal register (Rn). The entries in the table to be searched must be in 
descending order. 
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If N is coded, the search begins at the next sequential index after the index 
contained in the binary register. If N is not coded, the search begins at index 1 . 

The search ends when the first lower entry is found, or when all table entries 
between the beginning of the search and the end of the table have been searched. 
If a lower entry is found, the index of that entry is placed into the binary register 
(BRn). If no lower entry is found, 1125 and 1127 are set on. BRn remains 
unchanged. 

Example: 



Before: 



RY 1 333 1 



BRX 



TABX 



600 



500 



400 



300 



After: 



ry[ 



333 



BRX 1 4| 



The instruction BRX = TBFL (TABX,RY) would result in BRX containing 4. 
The search would begin with entry 1 because N is not specified. 



TBFX (Search for Equal Entry) 

Result = Mnemonic Table 



BRn = 



TBFX 



(label, Rn [,N] 



The labeled table is searched for an entry equal to the data contained in the 
decimal register (Rn). The entries in the table to be searched do not have to be 
ordered, because all entries are searched for an equal entry. 

Unless N is coded, the search begins at indexl . If N is coded, the search begins 
at the next sequential index after the index held in the binary register (BRn). 

If any equal entry is found, the index for that entry is placed into the binary 
register (BRn). If no equal entry is found, 1125 and 1127 are set on. BRn 
remains unchanged. 



Before 



RY 
BRX 



1 22222| 



BRX = TBFX (TAB$,RY,N) 



After: 



RY 
BRX 



\ 22222 

C 



n 





TAB$ 


1 


22222 


2 


66666 


3 


88888 


4 


00000 


5 


11111 



The search begins at index 3. After index 4 and 5 are searched and no equal 
entry is found, 1125 and 1127 are set on and the operation terminates. 
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The following code searches an input record for a specific character: 



DATASET DSN=2 LBUF=INPUT TYPE=SR . . . 

DC LABEL=INPUT LEN=256; 

TABLE LABEL=INTAB DCLBL=INPUT ARGL=1 MAXM=256; 

READ(2); Get input record. 

15, RY=X'40'; Search argument is a blank. 

BR40(4) SR 32; Zero BR40 and BR41 . 
TLOOP: BR40=TBFX(INTAB, RY,N); Search. 

IFIR 125 IS ON GOTO ENDLOOP; 

BR41 += 1; Increment recorder. 

GOTO TLOOP; Go to resume search. 
ENDLOOP: SOFF(127) ;Turn off indicator. 



Global Tables 

Tables in the common function area can be accessed by any partition. The label of 
the table must also be included in the .XTRN control statement. The partition can 
then access the table by specifying the label in a TABLE instruction. 

Global tables can be read, searched and updated by any partition. 

Whenever a partition accesses a global table in an instruction, the table is locked 
to any other partition until the instruction is completed. However, the table can 
be locked indefinitely by the TLCK instruction. The program that issued the 
TLCK instruction has exclusive use of the table and must issue a TUNLCK 
instruction before any other partition can access the table. The format of the 
instructions to lock and unlock global tables is as follows. 

Mnemonic Table 

TLCK 

TUNLCK (label) 

where : 

Table specifies the label of the global table to lock or unlock. 

TLCK (Lock Shared Table) 
Mnemonic Table 

TLCK (label) 

The table specified by label is locked for exclusive use by this partition. The 
table will remain assigned exclusively to this partition until a table unlock 
(TUNLCK) instruction is encountered. 
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If the table is already locked by another partition, the program will remain at 
this instruction until the other partition issues a TUNLCK instruction. 

This instruction is used only with global tables located in the common function 
area. 

Note: There is no automatic deadlock detection or recovery. If two partitions 
are waiting for tables held by each other, the system will lock up and require 
IPL. 



TUNLCK (Unlock Shared Table) 
Mnemonic Table 

TUNLCK (label) 

This instruction frees a shared table that has been locked by the TLCK instruction. 
Whenever a table has been locked, this instruction must be used in order to make 
the table available to other partitions. 

This instruction is used only with global tables located in the common function 
area. 

MISCELLANEOUS INSTRUCTIONS 

Compare Logical Character Strings 

The contents of two character strings are compared. An indicator is set on to 
signify an equal to, greater than, or less than relationship. The character strings 
can be from 1 to 256 bytes in length. The format of the CLC instruction is as 
follows. 

Mnemonic Stringl String2 Length 

CLC (BRa, BRb, 1-256) 

where: 

Stringl indicates a binary register that contains the address of the first byte 
of stringl. 

String2 indicates a binary register that contains the address of the first byte of 
string2. 

Length specifies the number of bytes to compare. Length may be from 1 to 
256 bytes. 

The two strings are compared byte for byte until the first miscompare, according 
to the standard EBCDIC collating sequence. One of the following indicators is 
set to indicate the result of the compare. 



5280 Assembler Language Instructions 247 



Indicator Condition 

1103 Stringl is equal to string2 

1102 Stringl is less than string2 

1101 Stringl is greater than string2 

The contents of the 2 byte strings remain unchanged by the operation. 

Example: 



STRNG1 


X'0970' 


X'0970' 
X'0975' 


A B C D E 


STRNG2 


X'0975' 


A B D D D 



The instruction CLC (STRNG1, STRNG2, 2) would set indicator 1103. 
The instruction CLC (STRNG1, STRNG2, 4) would set indicator 1102. 

Generate a Self -Check Digit 

The instruction to generate a self-check digit is used when you create a new file 
of numbers that you want to self-check each time an operator enters them. For 
more information about self-check numbers, see Self Check in Chapter 2. 

Mnemonic Operand 

GSCK (Rn) 

where : 

Operand indicates the decimal register (Rn) or double register (Rn(32)) that 
contains the self-check field. 

During the execution of the GSCK operation, the 5280 uses the self-check 
algorithm (specified in the .SELFCHK control statement) to generate a unique 
self-check number from the foundation contained in the decimal register or 
double register. The 5280 places the one or two generated digits into the self- 
check digit position in the register to complete the self-check field. 

Modification for Indirect Instruction Execution 

Indirect instruction execution is accomplished by instruction modification 
during program execution. An operand of the object code, which was generated by 
a source instruction, is modified. The instruction is then executed with the 
operand modification, although the original object code for the operand, which is 
stored in main storage, is not changed. 

Each source instruction generates 4 bytes of object code. This code is stored in 
main storage. The first byte (byte 0) always contains the operation code, and the 
next 3 bytes (bytes 1-3) contain the operands. See Appendix A for the operation 
codes generated from each assembler mnemonic. The contents of the remaining 
3 bytes of each object code instruction is described in the Function Reference 
Manual. 
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The format of the INXEQ instruction is as follows: 
Mnemonic Modifier Statement Byte 

INXEQ (BRn[(4)], label, [0-3]) 

where: 

Modifier indicates a binary register that contains the statement modifier. 
If a binary double register is specified, all 4 bytes of the double register are 
used to modify the 4 bytes of the instruction. If a 2-byte binary register is 
used, only one byte of the instruction is modified, with the data in the 
rightmost byte of the binary register. 

Statement specifies the label of the statement to modify. 

Byte specifies which byte of the object code to modify. If a binary double 
register is used for the modifier, this operand is omitted and all 4 bytes are 
modified. If a 2-byte binary register is used for the modifier and this operand is 
omitted, it defaults to byte 1 (the operation code is byte 0). 

When the INXEQ statement is executed, the byte or bytes of the object code are 
logically ORed with the contents of the binary register or binary double register. 
The modified statement is then executed. After the modified statement is 
executed, control returns to the next sequential statement following the INXEQ 
statement, unless the modified statement is a branch instruction. If the modified 
statement is a branch, control branches to label specified by the branch instruction. 
This instruction should not be used to modify a short branch instruction. 

The original contents of the object code operand byte remain unchanged. 

Any object code instruction may be modified with this instruction. A list of the 
most commonly modified instructions is as follows: 

Instructions that May be Modified, and Valid Modification 







Modifiable 






Modifiable 


Object Code 




Instruction 


Operand 


Byte 


Object Code Value 


MVC 


length 




length-1 


MVCR 


length 




length-1 


MVCV 


length 




length-1 


CLC 


length 




length-1 


TRANS 


length 




length-1 


TRT 


length 




length-1 


label = constant 


constant 




constant 


Rn = constant 


constant 




constant 


IFC 


constant 




constant 


IFHI/IFLO 


mask 


2 


hex AND mask 






3 


hex exclusive-OR mask 


READ 


format, dsn 


2, 1 


format number, data set 
number 


WRT 


format, dsn 


2,1 


format number, data set 
number 


Table instructions 


index 


2 


index 
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Duplicate a Byte in Storage 

The contents of a byte in a main storage partition can be duplicated one to 256 
times. 

The format of the DUP instruction is as follows: 

Mnemonic Address Number 

DUP ([disp,] BRn ,1-256) 

where : 

Address specifies a base displacement address of the storage byte to duplicate. 
The contents of the base register (BRn) are added to the displacement (0-255) 
to find the address of the byte. 

Number specifies the number of times to duplicate the contents of the storage 
byte specified by result. 

The contents of the byte at the base displacement address are duplicated for the 
number of times indicated by number. The duplicated data is placed into storage 
in the bytes immediately following the byte that is being duplicated. 

Search Resource Allocation Table 

Mnemonic Data Set Operand 

SRAT (1-15 ,BRn) 

The SRAT operation loads the physical address for the specified data set into 
the operand binary register (BRn). When the SRAT operation is executed, the 
5280 takes the logical device identifier from hex 60 and 61 of the I OB for the 
data set specified in the instruction. The 5280 searches the resource allocation 
table for a matching logical device identifier entry. If a match is found, the 5280 
loads the binary register specified in the instruction with the corresponding physical 
device address, which is stored with the logical device identifier in the resource 
allocation table. 

If no logical device identifier is present in the IOB, or if no match is found in the 
resource allocation table, or if there is no resource allocation table, 11 18 is set on 
and the 5280 finds the physical device address in the partition logical I/O table 
entry that corresponds to the specified data set. 
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Set Bits with Mask 

The bits of 1 byte in storage can be set on or off by using a mask and logical 
operations. 

The format for these instructions is as follows: 

Mnemonic Result Mask 



/SETON ^ Irj . . „„ 

\ SETOFF J P ^ ' ' constant ) 



where: 

Result specifies a base displacement address of the byte to be masked. The 
contents of the base register (BRn) are added to the displacement (0-255) 
to find the address of the byte. 

Mask is a 1-byte constant, as indicated under Constant Specifications at the 
beginning of this chapter. 

When the SETON operation is executed, the storage byte at the address specified 
by result is logically ORed with the mask, and the result replaces the original 
contents of the storage byte. 

When the SETOFF operation is executed, the storage byte at the address 
specified by result is logically ANDed with the complement of the mask, and the 
result replaces the original contents of the storage byte. 



Set Indicators 

Up to three indicators may be turned on or off with a single instruction. 
The format of the instructions to set the indicators is as follows: 
Mnemonic Operand 



lbUhh; ((la ,1b ,lc)J 



where: 

Operand specifies the indicator or indicators to set on or off. Indicators are 
referred to by number (10-1254) or by label. One, two, or three indicator 
numbers may be specified, or the operands may be omitted. 

When the SON operation is executed, the indicator or indicators specified by 
operand are set on (B'1 '). When the SOFF operation is executed, the indicator or 
indicators are reset off (B'O'). 
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system lock ana umocK 

An executing program can issue an instruction to cause the 5280 to be locked into 
the current partition. The 5280 remains in the partition until the executing 
program issues an instruction to release the 5280. The format of the instructions 
to lock or unlock current partition is as follows; 

Mnemonic Operand 

SYSLCK 
SYSUNL [{*)] 

where: 

Operand may be specified for SYSUNL. If the asterisk is included, the 5280 
unlocks the partition but executes within the partition for the normal time 
period before it exits. If the asterisk is omitted, the 5280 exits the partition 
as soon as it executes the SYSUNL instruction. 

When the SYSLCK instruction is executed, the 5280 is locked into the current 
partition. Whenever the time limit for the 5280 to work within the partition is 
exhausted, the 5280 resets the timer and continues to work within that partition 
until a SYSUNL instruction is encountered. After the SYSLCK is executed, no 
other partition is processed by the 5280 until the SYSUNL instruction is 
encountered. You should exercise great care when using this instruction. Use 
this instruction only when you want a series of instructions to be executed 
without interruption (such as a time-out interruption). Do not execute I/O 
instructions or access global tables while the 5280 is locked into your partition. 

When the SYSUNL instruction executes, the 5280 leaves the current partition 
for a time-out, unless the asterisk is included in the instruction. If the asterisk 
is included, the 5280 executes instructions within the partition for the normal time 
slice before it exits the partition. 



Translation 

The 5280 processes all data in EBCDIC notation. However, other notation can be 
read into the I/O buffer and translated to EBCDIC. Or data can be moved from 
main storage to the I/O buffer, translated from EBCDIC, and written in another 
notation to a diskette. This translation requires a translate table. You can code 
your own translate table with .DC control statements. If your 5280 common 
function area contains the optional ASCII Translate Table, you may use that table 
from any partition, the label is CFASCII. 

If you code your own translate table, you must declare the table to begin on a 
256-byte boundary. The length must be 512 bytes, divided into two separate 
256-byte tables. The first 256 bytes are used for the input translate table, and the 
next 256 bytes are used for the output translate table. 

In the input translate table, the EBCDIC value of each input character is stored 
at a displacement that corresponds to the value of the translated code. For 
example, the character P is represented by D7 in EBCDIC and by hex 50 in 
ASCII. The value of hex D7 is stored at a displacement of hex 50 in the input 
translate table. When the character P is read into the input buffer, the ASCII 
value of hex 50 is translated to the EBCDIC value stored at displacement hex 50. 
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The output translate table stores the code value of the translated code at the 
displacement into the output translate table that corresponds to the EBCDIC 
value. To translate the character P to ASCI I, the ASCI I value of hex 50 is stored 
in the output translate table at displacement hex D7. 

The EBCDIC values between hex 00 and 3F are used for various keyboard/display 
and printer control characters. For the printer, SCS control characters are very 
difficult to translate. For example, using the printer SCS control characters 
34 C8 06 (skip 6 columns), the hex 34 and 06 may be easily translated to themselves 
by placing hex 34 and 06 at locations 34 and 06 respectively in the translate 
table. However, the hex C8 (EBCDIC H) would have a hex 48 (ASCII H) in the 
translate table causing hex 34 C8 06 to be translated to hex 34 48 06, which will 
cause a printer error. Thus, it is not recommended to translate SCS data sets. 

You can initiate translation in two different ways in your source program. If 
you want translation performed on every record read from or written to a data set, 
you can use the TRANS parameter of the .DATASET control statement to 
specify the label of the appropriate translate table. The translation will occur 
automatically, immediately after a physical record is read or immediately before 
a physical record is written. 

If you do not use the TRANS parameter, you can issue a translate instruction to 
translate one record. The instruction translates the data that is pointed to by the 
Operandi register. 

The format for the translate instructions is as follows: 

Mnemonic Operandi Operand2 Length Reverse 

TRANS (BRa, BRb, 1-256) 

TRT (BRa, BRb, 1-256 [,R] ) 

where: 

Operandi indicates a binary register that contains the address of the leftmost 
byte of the data stream to be translated. 

Operand2 indicates a binary register that contains the address of the leftmost 
byte of the translate table. 

Length is a constant between 1-256 that indicates how many bytes are to be 
translated. 

Reverse is specified only for TRT for reverse testing. 

When the TRANS operation is executed, the number of bytes specified by length 
is translated, character by character. The translation begins at the address stored 
in the operandi binary register (BRa). The translate table used for the translation 
begins at the address specified by the operand2 binary register (BRb). Characters 
in the data stream are replaced by their translated value. 

When the TRT operation is executed, the test begins at the address stored in the 
operandi binary register (BRa) and continues for the number of bytes specified 
for length. The translate table used for the test begins at the address stored in the 
operand2 binary register (BRb). 
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Beginning with the data byte specified, the EBCDIC representation of the 
character at each byte is used as an offset into the translate table. If the entry at 
that offset into the translate table is a zero, the test continues to the next data 
byte. If the entry at that offset into the translate table is not zero, binary 
register sixteen (BR16) is loaded with the relative address of the data byte, and 
the rightmost byte of binary register seventeen (BR 17) is loaded with the translate 
table entry for the data stream character. 

Data characters are tested one by one until the first nonzero translation occurs 
or until the entire data stream has been tested. If each character in the data 
stream translates to a zero, BR16and BR17 contain zero. 

The original characters in the data stream are not changed. 

The following indicators may be turned on according to the specified conditions. 

Indicator Condition 

1 1 01 Nonzero byte not found 

1 1 02 Nonzero byte found 

1103 Nonzero byte found in last position of data. (If R is coded, the 
nonzero byte is found in first position). 
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Chapter 5. How To Assemble Your Program 



THE 5280 ASSEMBLER 

The 5280 assembler is stored as a data set on the assembler diskette. It must be 
loaded into a main storage partition in order to process your source program. The 
partition may be a foreground partition or a background partition that has a key- 
board attached. The partition must be a minimum of 9 K bytes in size. You load 
the assembler by entering the assembler data set name in response to the load 
prompt. The assembler data set name is SYSASM. 

When the assembler begins executing, it displays a series of prompts. The prompts 
request the labels of up to six data sets. These data sets include the: 

1. Source data set, which contains your source program. 

2. Extern data set, which is an optional data set that defines common function 
labels. You must include this data set if your program uses common function 
routines. The extern data set is stored on the assembler diskette. 

3. Work data set 1 , which is used by the assembler. This data set is mandatory. 
It may be allocated during the assembly. If allocated during the assembly, it 
will be deleted by the assembler upon normal termination of the assembly. 

4. Work data set 2, which is required if you request a cross reference listing. This 
data set may be allocated during the assembly. If allocated during the 
assembly, it will be deleted by the assembler upon normal termination of the 
assembly. 

5. Object data set, for the object code output. This data set may be allocated 
during the assembly. 

6. Print data set, which is required if you write your listing to a diskette. This 
data set may be allocated during assembly. 

These data sets are not required to be on the same diskette. If you prea I locate any 
of the last four data sets, they should be specified as I exchange, with 256-byte 
records and with the delete character omitted. 

During execution, the assembler makes multiple passes over the source code in 
order to generate the object code output. For a 9 K partition, about 285 
symbols may be processed. Any additional available storage is automatically 
added to the symbol table. 

If you requested a cross-reference listing, the symbols from the symbol table are 
copied into work data set 2. The symbols are later sorted into alphabetic order for 
output. 
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After the symbols are resolved, subsequent passes over work data set 1 develop the 
object code. The final pass over work data set 1 and the source code to n ether, pro- 
duces the object code and assembly listing. The object code is written to the speci- 
fied object data set. The listing may be written to a diskette as the print data set, 
or may be written to a printer. Printed output is formatted with 128 print positions 
per line and requires a minimum print width of 12.8 inches. Work data set 1 and 
work data set 2 are used only during the assembly process. If allocated by the 
assembler, they are deleted when the assembler has completed its execution. Other- 
wise, they remain on the diskette to be used for the next assembly. 



Loading the Assembler into a Partition 

The assembler may be loaded into a foreground or a background partition. If it is 
loaded into a foreground partition, the key board /display assigned to the partition 
is not available to another partition until the assembler is finished executing. All 
errors detected by the assembler are included in the assembly listing. When the 
assembler encounters certain errors, the assembly stops and the error code is dis- 
played on the status line. You can press the Reset key to continue the assembly, 
or press the End of Job command function key to terminate the assembly. 

If the assembler is loaded into a background partition, a keyboard/display must be 
attached until the prompts have been displayed and the necessary input has been 
accepted. The key board /display is then detached and available to another partition 
while the assembler runs in the background partition. Error messages are included 
on the program listing. 



The Assembler Prompts 

When the assembler begins execution, a series of prompts is displayed. Many of the 
prompts display a default response. If you wish to accept the default, simply press 
the Enter key. The cursor is positioned at the beginning of each response field; to 
change the default response, key over the displayed default. When a separate 
response is required on two or more lines, the cursor will be positioned at the first 
position of the first response field. Key in your response and press the Field Exit 
key. The cursor will move to the first position of the next response field. 

The status line is always active while prompts are being displayed. If an error 
occurs, the status line blinks and the appropriate error message is displayed. Press 
the Reset key to stop the blinking, and key over the error response. 

If an operator who is not familiar with assembler programming is to assemble your 
program, be sure to provide information concerning all necessary data set labels, 
device identification, and options you want for your assembly. 
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The assembler prompts are as follows. 
Prompt 1 



( ^ 

I o oooi n or fi I 

I 5280 assembler I 

J> Options are: — *•» 



1, List to printer 3. No listing 



^^ 1 , L. I S T to primer .5 . rv o i ibiing ^~ 

| 2. List to diskette | 

I Select option: _ Press ENTER 10-01 I 

If you select option 1, the assembly listing will be printed with 128 print positions 
per line. The printer must have a minimum print width of 12.8 inches. If the paper 
width is not sufficient for the printout, part of the listing is lost and damage to the 
printer may occur. 

If you select option 2, the assembly listing will be written to a diskette data set. A 
later prompt will request the name of this data set, referred to as the print data set. 

If you select either option 1 or option 2, Prompt 2 and Prompt 3 are displayed. If 
you select option 3, Prompt 4 is the next prompt displayed. 

Prompt 2 



(0 0001 D 01 Fl I 

Enter assembler print options I 

Cross reference < l=Yes, 2=No ) : Included lines ( l==Yes, 2=No > : — *•» 

~g- Full data print ( 1-Yes, 2~No ) : Errors only ( l=Yes , 2=No ) : ^ 

I Literal spacing ( 1-Yes, 2=No ) : Page size (Lines/Page): | 
I Press ENTER 10-02 I 



The assembler print options default to 66 lines per page and a cross reference with 
a full data print. If you enter no (2) for the full data print option, the listing will 
print no more than the first 8 bytes of object code generated from each source line. 

If you choose yes (1) for included lines, any program code inserted into the program 
with an .INCLUDE control statement is printed in the listing. 

If you choose yes (1 ) for errors only, only the error messages and the lines that 
caused the error messages are printed on the listing. If you specify errors only and 
your program assembles error-free, only the program name and title are printed on 
the listing. 
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The spacing option effects the way your .SPACE and .EJECT control statements 
are processed. !f you choose yss (1) for this option, the printer wi!! space and go 
to a new page exactly as the control statements specify. If you choose no (2) for 
this option, control statement specifications are adjusted to the following 
conditions. 

If .SPACE control statement causes the printer to go to the next page, printing 
begins on the first line of the new page rather than at the line indicated by the 
control statement. For example, if the .SPACE statement specifies six lines to be 
skipped, and only three lines remain on the current page, printing begins on line 1 
of the next page rather than on line 4. 

If an .EJECT control statement is encountered when the printer is already posi- 
tioned to print the top line of a page, the .EJECT statement is ignored. 

Prompt 3 

rO 0001 D 02 <+0 I 

Enter date I 

Day: -** 

^» Month: «f» 

T Year: | 

I Press ENTER 10-03 I 

The date prompt is presented if Prompt 2 was used and if the date is not available 
from the system control area. 

Prompt 4 



I 0001 A 25 E2 I 

I 5280 assembler I 

J- Enter the following information for - SOURCE data set J^ 



Data set name 



T Device address: T 

I Z) 

The source data set name is the label you assigned to the diskette data set in which 
you recorded your source statements. Your source statements are entered as 80- 
byte logical records, although only the first 72 bytes are used. Source records may 
be stored on a diskette of any exchange type. Any block size may be used, provid- 
ing the block size is valid for the exchange type and sector size used. 

The device address identifies the diskette drive that is to read in the source data set. 
Enter the four-character physical address. 
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Before you press the Enter key, be sure the diskette with the specified data set is 
in the diskette drive at the specified device address. 

Prompt 5 



rn 0006 A 66 1+0 1 

Diskette is volume protected. I 

Device DDDD . Data set S5SS . £ 



Enter owner identifier to access volume 



I "'J 



If the protect flag is set in the diskette label, Prompt 5 is displayed. Enter the 14- 
character owner ID, as described in the System Concepts Manual . If you terminate 
the assembly at this point, by leaving the owner ID blank and pressing the Enter 
key, the assembler data set is closed and the partition becomes available to be 
loaded again. 

After the data set name and device address for the source data set have been 
obtained, the assembler will attempt to open the data set. If an error occurs during 
open, the status line blinks and the appropriate error code is displayed in the status 
line. Press the Reset key to stop the blinking, then reenter the parameters. If the 
data set is successfully opened, Prompt 6 is displayed. 

Prompt 6 

r0 0001 A 25 E2 I 

5280 assembler I 

Enter the following information for - EXTRN data set JL. 



Data set name : 



„^» H.' cl I til BSI I I el III Y! , f 

1 Device address: (leave blank if none) | 

I Press ENTER 10-05 I 

The extern data set is a list of common function routine labels. If your source pro- 
gram makes any calls to the common function area, you must enter the label of the 
extern data set. The extern data set is stored on the assembler diskette. 

After you enter the data set name and device address, the assembler attempts to 
open the file. Errors that occur during open are handled as for the source data set 
open. 

Prompt 7 

( ^1 

I 0001 A 25 E2 I 

I 5280 assembler I 

J^ Enter the following information for - OBJECT data set — "s 



Data set name: 



j ~ I'd id »ei i id me. ^«. 

I Device address: | 

I Press ENTER 10-04- I 
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The object data set is the data set the assembler will use to write the assembled 
object code. It is also used as another work data set during the assembly. After 
you enter the data set name and device address, the assembler attempts to open the 
data set. If the open is successful. Prompt 10 is displayed. 

If the data set cannot be found at the specified device address, the assembler blinks 
the status line and displays an open error message. When you press Reset, the blink- 
ing stops and Prompt 8 is displayed. 

Prompt 8 



( ^ 

I 002A D 01 Fl I 

I Unable to find data set I 

«-*"* Do you want it allocated? J«. 



Opt i ons are 



T 1. Yes 2. No J 

I Select option: Press ENTER 10-06 I 

If you select 2, Prompt 7 is displayed again. 

If you select 1, Prompt 9 is displayed with the data set name and device address 
you entered for Prompt 7. 

Prompt 9 

( ^ 

I 0030 D 0M- 40 I 

I Enter data set allocation parameters I 

J-» Data set name: JL 



Dev i ce address 



I Number of records: (0 for MAX) | 

I Press ENTER 10-07 I 

If you wish to change the data set name or device address, use the *- (Field Back- 
space) key to move the cursor to the field you want to change. Enter the number of 
256-byte records that you estimate will be written. This typically allows 4 records 
per 1024 bytes of the partition the program will run in. 

After you enter the parameters, the assembler will attempt to allocate the data set 
as indicated. If the allocation fails, the status line blinks and displays an error 
message, as for an open error. Press the Reset key and reenter the parameters. 
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Prompt 10 



fO 0001 A 25 E2 I 

5280 assembler I 

Enter the following information for - work data set ? 1 ^Xs 



Data set name 



| Device address: | 

I Press ENTER 10-0M- I 

The work data set 1 is used by the assembler only during the assembly process. 
After you enter the parameters, the assembler attempts to open the data set. 

If the data set is not found at the specified address, the assembler blinks the status 
line and displays an open error message. When you press the Reset key, the blinking 
stops and Prompt 8 is displayed, as for the object data set. If you select 1 , Prompt 
9 is displayed again. Allocate work data set 1 as for the object data set. Work data 
set 1 should be about one-half the size of the source data set. If you assemble more 
than one source program at the same time, be sure to specify a different work data 
set for each assembly. 

After work data set 1 has been successfully opened, the subsequent prompts depend 
upon your responses to the first two prompts. 

If you requested an assembly listing in Prompt 1 and a cross reference in Prompt 2, 
the next prompt requests the name of the work data set 2. The prompt is as for 
Prompt 10, except the first line contains: 

ENTER THE FOLLOWING INFORMATION FOR - WORK DATA SET 2 

Work data set 2 is opened or allocated as for work data set 1 . Work data set 2 is 
used only during the assembly process. For work data set 1, one 16-byte record is 
required for each symbol definition or reference. Estimate one record per two source 
lines. 

If you requested an assembly listing to a diskette in Prompt 1, the next prompt 
requests the print data set name. The prompt is as for Prompt 10, except the first 
line contains: 

ENTER THE FOLLOWING INFORMATION FOR - PRINT FILE 

The print data set is used bv the assembler to write an assembly listing to a diskette. 
The print data set is opened or allocated as for work data set 1. 
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If you requested a printed assembly listing, Prompt 1 1 is displayed. 
Prompt 1 1 



rO 0001 N 

5280 assemble 

I 



0i* F-8 



Enter printer device address: 
Press ENTER 



The printer address must be the 4-character physical address. 

The assembler listing is printed with 128 print positions per line. This requires a 
minimum print width of 12.8 inches. 

When all necessary data sets have been opened, the assembler is ready to process 
the source data set. If the assembler is executing in a background partition, the 
keyboard is now detached. The status line will indicate the partition number of 
the currently attached partition. 

After the assembler has developed the object code, it writes the data sets and listings 
according to your responses to the prompts. The object data set may be loaded into 
any main storage partition for execution. 

Normal error recovery is provided for the printer. However, if the printer is inter- 
rupted while it is printing your listing and it cannot continue, you can recover 
without reassembling your program. Press the Cmd key, then the End of Job 
command function key; the load prompt is displayed by the standard-load routine. 
Load data set SYSASM8 from the assembler diskette. This data set then prints out 
your assembly listing. The diskette(s) must be in the same diskette drive(s) as when 
the assembly was stopped. The same partition must be used as was used for the 
assembly. 



THE ASSEMBLY LISTING 

The 5280 assembler produces a conventional parallel column source-object listing. 
If the assembler detected an error in a source statement, it flags the statement with 
asterisks and includes an error message. The edit format and screen control format 
messages are printed first, then the other messages are printed together, usually in 
sequence by line number. See Appendix E for a list of the 5280 assembler error 
messages. Following is an example of a printed listing and the kinds of information 
it contains. 
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A Printed Assembly Listing 



5280 ASSEMBLER Oi .00 



ADDR 

D 


OBJECT CODE 


LINE 


E2C1D4D7D3C5F240 


D 


0080 


0010000000000000 


Kl 


00A6 




58 


OOBE 




59 


0140 




60 


OOOi 




61 


0ii4 




tM 63- 

64 


0000 




65 


0115 




66 
67 


0140 


0800 


68 


0142 




69 


0144 




70 


0146 




71 


0148 


0435 


72 


014A 


08C2 


73 


014C 


08E4 


74 


014E 


0150 


75 


0150 


8000 


76 


0152 


0006 


77 


0154 


0022 


78 


0156 


0029 


79 


0158 


3701*- X] 


80 


0160 


y 7 * 1 


81 


0190 


FOFOFOFOFOFOFOFO 


82 


OiAO 


F9F1F1F1FF 


83 


01A5 


F9F9F9F8FF 


84 



SAMPLE2 - ORDER ENTRY SAMPLE PROGRAM; 

SOURCE CODE 

.START PNAM='SAMPLE2' ENTRY=START MCHK=CFPGMCHK; 
.KBCRT CRBA=IOI«i^ETAB=ERRKB; 

.DC LABEL=SCNC)|s1eVL=2 DISP=X'A6 , ; SCAN CODE t, CONVERTED EBCDIC 
.DC LABEL=MODEiw l_EVL=2 DISP=X'BE'; KB/CRT MODE SWITCH 
.DCLIND LABEL=EODSW,PRNTSW,QUANSW; 

.EQUATE NUMB=(i,TRANS),(2,PRNT); .DATASET NUMBERS 
•* THE FOLLOWING EQUATES ARE OPTIONAL, BUT WILL PUT ENTRIES IN THE 
* CROSS REFERENCE LISTING FOR SYSTEM REGISTERS AND INDICATORS. 
.EQUATE REG=(BR10,BR10), (BR18,BRi8), (BR19,BRi9), (BR22,BR22)i 
.EQUATE IND=< 1115,1115), < 1118, 1118) , ( 1125, 1125) , < 1158, 1158) ; 
. XTRN LABEL=CFPGMCHK , CFGIOERR , CFPERATT, CFL0AD01 , CFERCDSM, 

CFATFBGD.CFDEVCHKj 
.DC LABEL=CFWKPTR TYPE=BIN INIT=ADDR(CFSAVE) 
.DC LABEL=CFPARMi TYPE=BIN; 
.DC LABEL=CFPARM2 TYPE=BIN; 
.DCLBR LABEL=WKBRi; 

.DC LABEL=RWCOL TYPE=BIN INIT=X '0435 ' ; 
.DC LABEL=BUF@ TYPE=BIN INIT=ADDR< IOBUF) ; 
.DC LABEL=TXT@ TYPE=BIN INIT=ADDR(SHPCD) ; 
-DC LABEL=PRCNTLB TYPE^BIN INIT=ADDR(PRCNTL) 
.DC LABEL=PRCNTL TYPE=BIN INIT=X ' 8000 ' ; 

TYPE=BIN INIT=6; 

TYPE=BIN INIT=X'22' ; 

TYPE=BIN INIT=X'29' -, 

TYPE=BIN INIT=X'370i' ; 
.DCLDR LABEL=WKDRi,RQUAN,RPRICE; 
.DC LABEL=LIMIT TYPE=DEC INIT=1000 
.DC LABEL=MSG9iii INIT=X ' F9F1F1F1FF ' 
.DC LABEL=MSG9998 INIT=X ' F9F9F9F8FF ' 



.DC LABEL=K6 

.DC LABEL=K22 

.DC LABEL=K29 

.DC LABEL=K3701 



C.F. WORK AREA PTR 
C.F. PARAMETER REG 
C.F. PARAMETER REG 
BINARY WORK REGISTERS 
ROW *, COL FOR CRTMM 
I/O BUFFER PTR 
PTR FOR CRTMM 
PTR TO PRINT CONTROL 
PRINTER SPACE CONTROL 



CODE FOR EOD 
DECIMAL WORK REGISTERS 
QUANTITY LIMIT CHECK 
9111 - SELF CHECK INCORRECT 
9998 - UNEXPECTED KB EXT STATUS 



00560000 
00570000 
00580000 
00590000 

006 n>o 

006 Mio 
00620000 
00630000 
00640000 
00650000 
00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
00740000 
00750000 
00760000 
00770000 
00780000 
00790000 
00800000 
00810000 
00820000 
00830000 
00840000 



Q Hexadecimal address of the object code. 

JF1 Object code generated from the source line. 

Q Comment lines included in the source program. 

Q Assembler adds sequential statement number, which is not included in the source code. 

U Source line. 

FBI The assembler includes whatever is coded in columns 73-80 of the source line. 
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The Cross-Reference Listina 



The cross-reterence listing lists your program symbols in alphabetic order. It lists 
the references for each symbol, combining as many of the individual reference 
records as will fit into a single line, but starting a new line for each new symbol. 
The references indicate the relative record number of the source record that used 
the symbol. Following is an example of a cross-reference listing. 



5280 ASSEMBLER 01.00 



SAMPLE2 



ORDER ENTRY SAMPLE PROGRAM; 



00401 



DEFINED 


SYMBOL 




coMPe 


LENG 


VALUE 


TYPE 


REFERENCES 


oJM.2 






D 






lPa 


B 




AMT 




\J s/v/O 


000D 


08E6 


oo:.Tr 


00373 


00360 


ATTN 




0000 


0004 


0DE8 


INST 


00346 




00417 


BKRG 




0000 


0004 


0EA8 


INST 


00321 




00211 


BLANKS 




0014 


0019 


0BE5 


PRMT 


00177 


00178 


00258 


BLNK 




0000 


0004 


OCBO 


INST 


00248 


00358 


00064 


BRIO 




0014 


0002 


0114 


BIN 


00274 


00292 


00064 


BR18 




0024 


0002 


0124 


BIN 


00414 




00064 


BR19 




0026 


0002 


0126 


BIN 


00370 




00064 


BR22 




002C 


0002 


012C 


BIN 


00307 




00073 


BUF0 




004A 


0002 


01 4 A 


BIN 


00258 


00259 


00373 


BUFAD 




0000 


0008 


OEOC 


DATA 


00120 




00094 


BUFFI , 




0000 


0400 


0300 


DATA 


00087 




00095 


BUFF2 Bl 


0000 


0100 


0700 


DATA 


00091 




00066 


CFATFBGD 


* 


0000 


0000 


01 2D 


INST 


00232 


00245 


00066 


CFDEVCHK 


* 


0000 


0000 


0139 


INST 


00236 


00251 


00066 


CFERCDSM 


* 


0000 


0000 


0.125 


INST 


00332 


00379 


00066 


CFGIOERR 


# 


0000 


0000 


0119 


INST 


00309 




00066 


CFL0AD01 


* 


0000 


0000 


0141 


INST 


00341 


00365 



00179 



00286 00287 



00260 00265 00288 00364 



The number of the line where the symbol is defined. 

Common function labels are marked with asterisks. 

Compressed address or index into the system table where the address is stored. (See 
Functions Reference Manual for a description of compressed addresses for registers). 

Data type. 

The number of each line that refers to the symbol. 
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Error Messages 



Error messages are printed at the beginning of your assembly listing, in the follow- 
ing format. 



5280 ASSEMBLER Oi.OO 



GALTEST6 - ASSEMBLY ERRORS 



ERROR 



LINE 



DESCRIPTION 



A«3002- 
A?ff0050- 


-0£|U 
-0»?3i 




T VC 'E 
fDt2 


ASM0050- 


-00032 




MDUP 


ASM0077- 


•00034 




MS and 


ASM3002- 


-00035 




MD 


ASM0077- 


-00035 




MS and 


ASM0077- 


-00036 




MS and 


ASM3002- 


-00036 




MS 


ASM3002- 


-00037 




MD 


ASM3002- 


-00037 


a 


MS 


ASM0050- 


-00020 


MDUP 


ASMiOOi- 


-00027 


34 


Inva L i d 


ASM0036- 


-00057 




Op 1; i on 


ASM0036- 


-00058 




Op t i on 


ASM2003- 


-00058 


02 


Operand 


ASM2005- 


•00066 


02 


Operand 


ASM2003- 


-00071 


Oi 


Operand 


ASM2003- 


•00072 


Oi 


Operand 


ASM0050- 


-00078 




IS 


ASM0050- 


-00078 




SKIP 


D Error code. 







is invalid (-too Large, etc) 
is an undefined symbol, 
is an undefined symbol 
MD must be identical 

is invalid (too large, etc) 
MD must be identical 
MD must be identical 
is invalid (too large, etc) 
is invalid (too Large, etc) 
is invalid (too Large, etc) 

is an undefined symboL 
delimiter at c o L umn ** 
or modifier not recognized 
or modifier not recognized 



■war I 



wrong type 



:: r is wrong type 

: * is wrong type 
is an undefined symboL 
is a\~i undefined symboL 



Line in the assembler listing where the error occurred. 

Description of the error. 

When a number appears in this column, it corresponds to the ## in the 
description. For example, the 34 indicates an invalid delimiter at column 34 
in line 00027. The first 02 indicates that the second operand in line 00058 is 
the wrong data type. 
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Chapter 6. Control Areas 



SYSTEM INDICATORS WITHIN A PARTITION 

The first 100 indicators within a partition may be used as you wish. The other 
indicators, however, are used by the system during program execution. The indi- 
cator assignments are as follows. 



Indicator 


Condition 


Meaning if Set to 1 


1100 




Reserved 


1101 


Table search 


Result is higher 




TRT 


Byte not found 




CLC 


String 1 is greater than string 2 


1102 


Table search 


Result is lower 




TRT 


Byte is found 




CLC 


String 1 is less than string 2 


1103 


Table search 


Result is equal 




TRT 


Byte found in last position (EOF) 




CLC 


String 1 is equal to string 2 


1108 


External status 


Restricted external status process- 
ing. (See Restricted External Status 
Indicator later in this chapter.) 


1109 


Program check 


Program check error 


1110 




Background partition 


1111-114 




Reserved 


1115 


SCS conversion data set 


Last line (LSTLN) overflow 


1116 




Reserved 


1117 


Self-check operation 


Self-check error 


1118 


SRAT operation 


Resource allocation table search 
error 


1119 


HEXBIN operation 


Attempt to convert invalid EBCDIC 
to hex 


1120 


Divide operation 


Divide error (denominator is zero) 


1121 


Edit format 


Invalid conversion request in format 


1122 


Arithmetic operation 


Decimal to binary conversion error 


1123 


Multiply operation 


Multiply overflow 


1124 


Decimal arithmetic 


Decimal arithmetic overflow 



1125 
1126 

1127 

1128-159 

1160-191 



1192-254 



operation 
Table search 
Table write 

Table operation 



Table entry not found 

Attempt to access table beyond 

its limit 

Table operation error 

Not defined 

Modified field indicators. See 

Field Modification Indicators in 

Chapter 2. 

Used with DE/RPG 
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SYSTEM REGISTERS WITHIN A PARTITION 



Several binary registers are used by the system during program execution. These 
registers are listed below, with the conditions or instructions that affect each 
register. 



Register 

BR16 



Condition 

LOAD 

TRT 



Register Contents 

Relative record number for relative 
record reads during a program read. 
Also contains error code after a 
loader error 

Address of the last position that 
translated to a nonzero character 



BR17 
BR18 



TRT 
Subroutine 



Function byte 

Address of next available entry 
position in the partition subroutine 
stack 



BR19 



BR20 



BR21 



Keyboard External 
Status 

Keyboard External 
Status 



Keyboard External 
Status 



Current field starting address within 
the main storage I/O buffer 

Current field starting address within 
the screen refresh buffer in key- 
board/display control storage 

Field length of current field, minus 
1 



BR22 



BR23 



External Status 



External Status 



Relative address of the last data set 
I OB to report external status. Not 
used for keyboard/display status 

External status condition code, to 
be used as the index into the external 
status subroutine 



BR24 
BR25 

BR26-31 



LOAD 



Reserved for system use 

Physical device address of the device 
doing the load 

Reserved 



In addition to these system binary registers, common function routines often use 
BR33, destroying the original contents of the register. If your program uses 
common function routines, you should avoid using BR33 in your program. 
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PROGRAM CHECK ERRORS 

The 5280 detects and reports program check errors. When a program check error 
occurs, the 5280 calls the routine specified by the MCHK parameter of your 
.START control statement. If you are using the common function program check 
error handler routine, it places the program check error code on the status line, 
as described in the program check error handler description. 

The conditions that are detected by the 5280 as program check errors are: 

Code Error 

0200 Common function routine not available in the common area. 

0201 Addressing outside of partition. 

0202 Invalid operation code. 

0203 Instruction not on a 4-byte boundary. 

0204 ENTR issued from a background partition that is not attached to a 
keyboard. 

0205 Subroutine stack extended beyond partition. 

0206 Invalid keyboard/display external status. 

0207 Attempt to access an undefined data set. 

0208 Attempt to access an undefined self-check control area. 

0209 DETACH failed during an exit or load operation. 
020A ATTACH failed during a load operation. 



KEYSTROKE COUNTERS 

The 5280 maintains two keystroke counters while an ENTR is being processed. 
A data entry keystroke counter is incremented when the operator presses a key 
in enter, update, or verify mode. A verify correction keystroke counter is incre- 
mented when the operator presses a key to correct a verify mismatch character 
in verify mode. 



Data Entry Keystroke Counter 

When one of the following keys is pressed in enter, update, or verify mode, the 
data entry keystroke counter is incremented unless: 

• An error is outstanding when the key is pressed. 

• The keystroke causes an error other than a data required, blank check, or 
mandatory enter error. 

• The keystroke is a Field Exit, Field- (Field Exit Minus), or Skip key that is 
pressed in the first position of a field and causes a mandatory enter error. 
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• The keystroke is for a function key that is being handled by your own sub- 
routine, as specified in the keyboard bit map. 

Data key 

Hex key sequence 

Field Advance key 

Field Backspace key 

Character Advance key 

Character Backspace key 

Record Advance key 

Record Backspace key 

Field Exit or Field+ key 

Field- (Field Exit Minus) key 

Skip key 

Duplicate key 

Scan code passed to the keyboard by keyboard operation OA 

EBCDIC code passed to the keyboard by keyboard operation OB 



Verify Correction Keystroke Counter 

The verify correction keystroke counter is incremented when the operator presses 
a key in verify mode that changes the original data in the record. If the mode is 
field correct, the counter is incremented only once for the entire field. 



COMMON FUNCTION ROUTINES 

The common function routines described in this chapter are listed in alphabetic 
order by title, and include: 



Label 



Title 



CFASCII ASCII processor 

CFATFBGD Attach partition routine 

CFDETFGD Allow detach routine 

CFDEVCHK Check/move device address 

CFDUMPTR Dump/trace processor 

CFERCDSM Error code with message display 

CFERCDSP Error code display routine 

CFGIOERR General I/O handler 

CFHELP01 Help text processor 

CFKEYRT Keystroke router routine 

CFLOAD01 Standard load processor 

CFMSGDSP Message display routine 

CFPERATT Operator detach routine 

CFPGMCHK Program check error handler 

CFSECVOL Secure volume processor 
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The common functions can be accessed by a program executing in any main storage 
partition. When you write a source program that uses one or more of these common 
functions, you must: 

1. Specify the common function labels with an .XTRN control statement. 

2. Enter the data set name SYSACF in response to the assembler prompt that 
requests the Extern data set. 

3. Specify the common function label in the program instruction or control 
statement. 

4. Declare a 128-byte area of storage and store the address of the area in BR32. 

If your program is displaying the extra line when a common function routine is 
called, the routine replaces it with the status line. When the routine completes 
execution, it replaces the status line with the extra line. (See Nondisplay of the 
Status Line in Chapter 2.) 

The common function labels and the function descriptions are included in this 
chapter. Several routines require input in addition to the address in BR32. Before 
you use one of the common functions in your program, you must be familiar with 
any input or output pertaining to the function. 



Registers Used by the Common Functions 

During the execution of certain common functions, the 5280 uses binary registers 
BR32-63, which are located within the partition that accessed the common func- 
tion. You must load the address of a 128-byte register save area into BR32. When 
a routine begins execution, the contents of the binary registers are copied into the 
first 64 bytes of the location pointed to by BR32. 

While the common function routine is executing, it places information in the binary 
registers. If the common function routine in turn calls another common function 
routine, the contents of the binary registers used by the first routine are copied into 
the remaining 64 bytes of the register save area. 

When the common function routine completes execution, the original contents of 
the binary registers are restored except for BR33. The original contents of BR33 
are often destroyed. 
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Allow Detach Routine (CFDETFGD) 

This routine is called by a program that is executing in an attached partition. The 
program calls this routine when it reaches a point where it can execute for a period 
of time without needing the keyboard. 

Input 

• 1158 
Output 

• 1158 is turned off 

When this routine is executed, the following operations are performed. 

1. 1158 is turned off to indicate that the program in the partition can execute 
without using the keyboard. This indicator is checked by the standard load 
processor (CFLOAD01) and the operator detach routine (CFPERATT). 

2. Return is to the next sequential instruction. 

ASCII Processor (ChASCII) 

The ASCII processor makes the ASCII translate table in the common area available 
to the partition. 

Input 

• BR32— Address of your register save area. 

• BR34-Data set number. 
Output 

• ASCII table index number placed into data set IOB. 

• Bit 2, byte hex 4D of data set IOB set to 1 . 

• Registers restored except BR 33. 

When the routine is executed, the following operations are performed. 

1. The contents of BR32-63 are copied into the storage location pointed to by 
BR32. 

2. The routine checks to make sure the ASCII table is included in the common 
area. If there is no ASCII table in the common area, an error occurs and 
return is made to the next sequential instruction. 
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If there is an ASCII table in the common area, the system table index for the 
ASCII table is placed into displacement hex OE of the IOB specified by 
BR34, and bit 2 of byte 4D is set to 1. This specifies that both the HDR1 
labels and data are to be translated. If the labels are not to be translated, the 
program in the partition must clear this bit to 0. 

Return is made, and the next sequential instruction is skipped. 



Attach Partition Routine (CFATFBGD) 

The attach partition routine attaches the calling partition to its associated keyboard. 
When the keyboard is attached upon completion of this routine, the calling partition 
can accept input from the operator via the keyboard. 

Input 

• BR32— Address of your register save area. 

• 1156— If your program is displaying the extra line instead of the status line, turn 
on 1156 before calling this routine so the extra line will be returned to the screen 
when the return is made. 

Output 

• 1158 is turned on. 

• Registers are restored. 

• The partition is attached. 

When this routine is executed, the following operations are performed. 

1. The contents of BR32-63 are copied into the storage area pointed to by 
BR32. 

2. A KATTCH instruction is issued to attach the calling partition to the 
keyboard. 

If the calling partition is a foreground partition, or if the calling partition is a 
background and another background partition is attached to the keyboard, 
the routine reissues the KATTCH instruction until the attach is successful, 
then return is made. 

If the calling partition is a background partition and a foreground partition 
is attached to the keyboard, the keyboard alarm is sounded and an edge indi- 
cator ( I ) is displayed on line 6 of the screen. The edge indicator is displayed on 
the right side of the screen except for dual displays; for a dual display, the edge 
indicator is displayed on the left side of one of the screens. The operator must 
respond to the buzzer and edge indicator by pressing the Attn key. After the 
Attn key is pressed, the attach is performed and return is made. 

3. Return is always to the next sequential instruction. 
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Check /Move Device Address (CFDEVCHK) 

This routine checks EBCDIC input and processes it for a logical device ID or for a 
physical device address. 

Input 

• BR32— Address of your register save area. 

• BR33— Address of an input field. 

• BR34-Data set number. 
Output 

• Device ID or physical address moved to IOB or logical I/O table, or both. 

• Registers restored except BR33. 

When the routine is executed, the following operations are performed. 

1. The contents of BR32-63 are copied into the area pointed to by BR32. 

2. The address of the EBCDIC input is taken from BR33. 

3. If the EBCDIC input is two characters in length, it is treated as a logical 
device ID. It is moved to displacement hex 60-61 of the IOB specified by 
BR 34. 

4. If the EBCDIC input is four characters in length, it is treated as a physical 
device address. It is tested to determine if it is a numeric value that can be 
converted to a valid physical address. If it is not, an error occurs. If it is, 
the physical address is not checked to assure that a device is installed. The 
zones are removed from the EBCDIC bytes to convert them to four hex 
digits. The first two hex digits are moved to the logical I/O table in the 
partition, and the second two digits are moved to the data set IOB specified 
by BR34, to displacement hex 16. 

5. If an error occurs and the Reset key is pressed, control returns to the next 
sequential instruction. Otherwise, the next sequential instruction is 
skipped. 

Dump/Trace Processor (CFDUMPTR) 

This routine must be called before any dump or trace operation is performed. The 
Dump/trace routine opens data set 15. You must have previously defined data set 
15 with a .DATASET control statement. The data set must use a 256-byte physical 
buffer and a nonoverlapping 128-byte logical buffer. If you want the data set 
written to a diskette, the data set labeled DUMP0000 must have been previously 
allocated. This data set cannot be allocated on a secure diskette. The data set 
attributes must include type attributes that work on printer and diskette, such as 
sequential write or shared write (TYPE = SW, SHRW). 
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If you want to dump or trace after an error has occurred while a common function 
routine is executing, press the uppercase Cmd (Command) key, then the Dump/ 
trace file open key while the status line is blinking. 

Input 

• BR32— Address of your register save area. 

• DUMPOOOO— preallocated if you want to send output to diskette. 

• Data set 15 defined. 
Output 

• Data set 15 IOB opened. 

• Device address for DUMPOOOO moved to data set 15 IOB and partition logical 
I/O table. 

• Registers restored. 

When the routine is executed, the following operations are executed. 

1. The contents of BR32-63 are copied into the 128-byte storage area pointed 
to by BR32. 

2. The routine checks to make sure the partition has a data set 15 defined. If 
there is no data set 15, error code 9914 is displayed. If the operator presses 
the Reset key to reset the error, return is made and the next sequential 
instruction is skipped. If the operator presses the End of Job command func- 
tion key to reset the error, return is made to the next sequential instruction. 

3. If data set 15 is defined, the following prompt is displayed on the screen: 

rO 01. N 04 4-0 I 

D u m p / t r a <:: e file op e n I 

Enter device address: JL» 

| Press ENTER T" 

I 5-02 I 

4. The physical device address is accepted from the operator. 

5. An OPEN is issued to the specified device. If an open error occurs, the 
general I/O handler is called. If the operator presses the Reset key to reset 
the error, return is made and the next sequential instruction is skipped. If 
the operator presses the End of Job command function key to reset the 
error, return is made to the next sequential instruction. 
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6. If the operator presses the Cncl (Cancel) key in response to the dump/trace 
prompt, return is made and the next sequential instruction is skipped. 

If the operator presses the End of Job command function key in response to 
the dump/trace prompt, return is made to the next sequential instruction. 

If the operator presses the Sys Req (System Request) key in response to the 
prompt, the standard load processor is called. That routine returns to the 
dump/trace processor, and the dump/trace prompt is redisplayed. 

If the operator presses the Attn (Attention) key in response to the prompt, 
the allow partition detach routine is called. That routine returns to the 
dump/trace processor and the dump/trace prompt is redisplayed. 

If the operator enters a device address and presses the Enter key in response 
to the dump/trace prompt, and the open is successful, return is made and the 
next sequential instruction is skipped. 

At the conclusion of the dump, the data set is closed but the EOD is not updated. 
If you want to access the data set after the dump, you must use the close failure 
program to update the EOD. 



Error Code Display Routine (CFERCDSP) 

The error code display routine displays an error code on the status line. 
Input 

• BR32— Address of your register save area. 

• BR 33— Address of the error code. 
Output 

• Error code displayed on status line. 

When the return is called, the following operations are performed. 

1. If the program is being executed in a partition that is not attached to a key- 
board, the attach routine (CFATFBGD) is called to attach the partition. 

2. The contents of BR32-63 are copied into the area pointed to by BR32. 

3. The address of the 4-byte EBCDIC error code is taken from BR33. 

4. The status line displays the error code, surrounded by dashes, in positions 
7-12 of the status line, and positions 1-12 blink. No other change is made to 
the status line. 
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5. The routine accepts a response from the operator, who must press the Help 
key. End of Job command function key, or the Reset key. If the Help key 
is pressed, the help text processor (CFHELP01) is called. If the Reset key is 
pressed, the error code and message are removed from the screen and the 
status line stops blinking. Return is made, and the next sequential instruction 
is skipped. If the operator presses the End of Job command function key, 
control resturns to the next sequential instruction. 



Error Code with Message Display (CFERCDSM) 

This routine displays an error code and message on the status line. You must 
declare and store the message in a storage location, in the following format: 

C C C C L M M M M M M M M M M M M M M M 

Where CCCC is the 4-byte error code, in EBCDIC. 

L is the length-1 of the message, in binary. 

M is the message, in EBCDIC. 

If the length of the message is greater than 15, no message is displayed. 

Input 

• BR32— Address of your register save area. 

• BR33— Address of error code and message. 
Output 

• Error code and message are displayed. 

• Registers are restored, except BR33. 

When this routine is executed, the following operations are performed: 

1. The contents of BR32-63 are copied into the area pointed to by BR32. 

2. The address of the error code and message is taken from BR33. 

3. The status line displays the following information: 

Position Content 

1 Partition number 

8-1 1 Error code surrounded by dashes 

16-23 Program name 

25-40 Message 

Positions 1-40 of the status line blink. 
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The routine accepts a response from the operator, who must press the Heip 
key,, the End of Job command function key, or the Reset key. If the Help 
key is pressed, the Help Text processor (CFHELP01) is called to display help 
text. If the Reset key is pressed, the error code and message are removed from 
the screen and the status line stops blinking. Control returns from this 
routine, and the next sequential instruction is skipped. If the operator presses 
the End of Job command function key, control returns to the next 
sequential instruction. 



General I/O Error Handler (CFGIOERR) 

This routine displays information on the status line when an I/O device encounters 
an error. 

Input 

• BR32-Address of your register save area. 

• BR22— Address of the IOB for the data set that had the error. This address is 
placed into BR22 by the 5280 when an external status condition occurs. You 
must call this routine in the external status subroutine before external status is 
enabled or the address may be lost. 

Output 

• Error information is displayed. 

• Registers are restored, except BR 33. 

When this routine is called, the following operations are performed: 

1. If the program is being executed in a partition that is not attached to a key- 
board, the attach routine (CFATFBGD) is called to attach the keyboard. 

2. The contents of BR32-63 are copied into the area pointed to by BR32. 

3. The address of the IOB for the data set that encountered the error is taken 
from BR 22. 

4. The status line displays error information as follows: 

Position Content 

1 Partition number 

3-6 Physical device address 

7-12 Error code surrounded by dashes 

13-14 Logical device ID, if available 

16-23 Program name 

25-32 Data set name 

Positions 1-40 of the status line blink. 
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5. A response is accepted from the operator, who may press the Reset key, End 
of Job command function key, or the Help key. If the Help key is pressed, 
the help text processor (CFHELP01) is called to display help text. If the 
Reset key is pressed, the status line stops blinking, control returns from this 
routine, and the next sequential instruction is skipped. If the operator 
presses the End of Job command function key, control returns to the next 
sequential instruction. 

The routine does not clear the error code in the data set IOB. This is to prevent 
clearing a possible second external status condition. 



Help Text Processor (CFHELP01) 

In an attached partition, when the operator presses the Help key in response to an 
error, the help text processor searches the help text table in the common area for 
a help message that corresponds to an error code. 

Input 

• BR32-Address of your register save area. 

• BR33— A four-digit error code (stripped decimal format). 
Output 

• Help text displayed. 

• Registers restored, except BR33. 

When the routine is executed, the following operations are performed: 

1. The contents of BR32-63 are copied into the location pointed to by BR32. 
BR32 must contain a register save address. 

2. The help text table in the common area is searched for an error code to match 
the code in BR33. This code is the four-digit portions of the error code. If 

a match is not found, a message stating that there is no help text for that 
code is placed in positions 41-80 of the status line. If there is a match, the 
help text corresponding to the code is placed into positions 41-80 of the 
status line. 

3. A response is accepted from the operator, who must press the End of Job 
command function key or Reset key. Positions 41-80 of the status line are 
cleared. 

If the End of Job command function key is pressed, return is made to the 
next sequential instruction. If the Reset key is pressed, return is made and the 
next sequential instruction is skipped. 

Note: Unless the partition is attached, the status line is blinking, and an error code 
is in BR33, an error handling routine should be called instead of the help text 
processor. 
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Keystroke Router Routine (CFKEYRT) 

The keystroke router interprets certain keystrokes and either routes them to other 
common function routines or returns to the partition. The assembler program to 
handle the Attention key, System Request key, and End of Job command function 
key. 

Input 

• BR32— Address of your register save area. 
Output 

• Registers are restored. 

When this routine is executed, the following operations are performed. 

1. The contents of BR32-63 are copied into the 128-byte storage area pointed 
to by BR32. 

2. The routine interprets the following keystrokes and routes them as specified: 

Key Routing 

Attn (Attention) key calls the operator permit detach routine 

(CFPERATT) 

Sys Req (System Request) calls the standard load processor (CFLOAD01) 
key 

Dump/Trace Open calls the dump/trace processor (CFDUMPTR) 

command function key 

End of Job command returns to the next sequential instruction 

function key (EOJ) following the CALL. The normal way to 

process the End of Job command function 
key is to check 11 10 to determine if the 
partition is a background partition. If it is a 
background (1 110 on), issue an EXIT. If it is 
a foreground (1110 off), issue a LOAD or call 
the standard load processor. 

All other returns to the partition skip the next sequential instruction. 

Message Display Routine (CFMSGDSP) 

This routine puts a message of up to 56 characters into the extra line of the 
screen. You must declare and store the message in a storage location in the follow- 
ing format: 

LMMMM . . . 

Where L is the length-1 of the message, in binary. 

M is the message, in EBCDIC. 
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If you want this message to be displayed and your program is displaying the status 
line instead of the extra line, issue a DISPEX instruction before calling this routine 
or immediately after calling this routine. 

Input 

• BR32— Address of your register save area. 

• BR33— Address of the message. 
Output 

• The message is moved to the extra line. 

• Registers are restored, except BR33. 

When this routine is called, the following operations are performed. 

1. If the program is being executed in a partition that is not attached to a 
keyboard, the attach routine (CFATFBGD) is called to attach the partition. 

2. The contents of BR32-63 are copied into the area pointed to by BR32. 

3. The address of the message is taken from BR33. 

4. The extra line of the screen contains the following: 

Position Content 

1 Partition number 

16-23 Program name 

25-80 Message (If the binary length specifies a number greater 

than 55, only the partition number and program name are 

moved to the extra line.) 

5. Control returns from this routine to the partition, to the next sequential 
instruction. 

Operator Detach Routine (CFPERA TT) 

The operator detach routine detaches the currently attached partition from the 
keyboard. This routine is called via external status when the operator presses the 
Attn key. You must include this call in your external status subroutine if you 
want to allow the operator to interrupt a program executing in an attached parti- 
tion. When this routine has completed executing (unless 1158 is on), the keyboard 
is available to be attached to another partition. 
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Input 

• 1158 
Output 

• The partition is detached. 

• The screen is cleared. 

When this routine is executed, the following operations are performed. 

1. The screen is cleared. 

2. The KDETCH and SYSUNL instructions are issued in the attached partition 
to detach the partition and cancel any remaining execution time. See Chapter 
4 for more information about these instructions. 



3. If 1 1 58 is on, the attach partition routine (( 
the calling partition prior to returning. 

If 1158 is off, the partition remains detached when the return is made. 

4. Return is made to the next sequential instruction. 

Program Check Error Handler (CFPGMCHK) 

The program check error handler displays detected program check errors. If you 
use this common function routine, you must specify the label for the MCHK param- 
eter of the .START control statement (MCHK=CFPGMCHK). The 5280 calls the 
routine whenever a program check error occurs. See Program Check Errors in this 
chapter for a list of the errors and corresponding error codes. 

Input 

• BR32— Address of your register save area. 
Output 

• Error message is displayed. 

• Registers are restored. 

When the CFPGMCHK routine is called, it performs the following: 

1. If the program is being executed in a partition that is not attached to the 
keyboard, the attach routine (CFATFBGD) is called to attach the partition. 

2. If BR32 is not zero, it copies the contents of BR32-63 into the storage area 
pointed to by BR32. If BR32 is zero, the contents of BR32-63 are placed 
into BR64-95. This destroys the original contents of BR64-95. 
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3. The status line displays the following information: 

Position Content 

1 Partition number 

7-12 -02CC- 

Where CC is the program check error code. 
16-23 The program name 

25-28 The address of the current instruction 

Positions 1-40 of the status line blink. 

4. The address of the standard load processor (CFLOAD01) is placed into the 
partition control area. This ensures a return to the standard load processor 
from all external status in case the program check resulted from program 
code that destroyed the exit routines. 

5. This routine accepts a response from the operator, who must press the Reset 
key or End of Job command function key. When the End of Job command 
function key or the Reset key is pressed, an EXIT instruction is issued if the 
partition is a background partition. If it is a foreground partition, the 
standard load processor is called. 

While the error code information is being displayed on the status line before reset, 
the operator may use the dump console function to dump the data set. See the 
Functions Reference Manual for a description of the Dump console function. 



Secure Volume Processor (CFSECVOL) 

This routine should be called in response to a 321 1 error. The secure volume 
processor displays a prompt requesting the operator to enter owner ID information 
when a secure diskette is being accessed. 

Input 

• BR32— Address of your register save area. 

• BR34— Address of a 14-byte storage area. 

• BR22— Address of the IOB of the data set that had the error. This address is 
placed into BR22 when an external status condition occurs. You must call this 
routine in the external status subroutine before external status is enabled. If 
you call this routine when external status has not occurred, you must place the 
address into BR22. 

Output 

• Registers are restored, except BR 33. 
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When this routine is executed the following operations are performed. 

1. The contents of BR32-63 are copied into the location pointed to by BR32. 

2. The address of the data set IOB is taken from BR22. 

3. The following prompt is displayed on the screen: 

rO 00 06 A 66 MO I 

Diskette is volume protected, I 

Device DDDD. Data set SGSS , JL 



Enter owner identifier to access volume 



I" "'I 



Where ddd is the logical device ID, or physical device address. 



s . . . is the first 17 bytes of the data set name if the name is available. 

If the operator enters the owner identification and presses the Enter key, the 
routine accepts the input from the keyboard and stores it into the storage 
location pointed to by BR34. Control returns to the partition, and the next 
sequential command function instruction is skipped. If the operator presses 
the End of Job command function key instead of the Enter key, control returns 
to the next sequential instruction. 

If the operator presses the Attn key instead of the Enter key, the allow attach 
routine (CFPERATT) is called. If the operator presses the System Request 
key instead of the Enter key, the standard load processor (CFLOAD01 ) is 
called. Control returns to the secure volume processor from either of these 
routines, and the secure volume prompt is redisplayed. 



Standard Load Processor (CFLOAD01) 

The standard load processor displays the standard load prompt and issues a LOAD 
instruction to load a partition. This routine should be called via an external status 
subroutine when the operator presses the System Request key or when you want to 
exit a foreground partition. 

Input 

• BR32— Address of your register save area. 

• 1158— This indicator may be set by your program or by the attach partition 
routine (CFATFBGD). 

Output 

• The partition is loaded. 

• Registers are restored. 
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When the routine is executed, the following operations are performed. 

1. The contents of BR32-63 are copied into the location pointed to by BR32. 

2. The following prompt is displayed on the screen: 

fOOOl A 17 i+0 I 

Program name: I 

Device address: 1^ 



Par t i i i on number 



J Press ENTER *f* 

I 05-00 I 

If the operator enters the load parameters and presses the Enter key, the 
input is accepted. A LOAD instruction is issued, with the input used as 
parameters. The LOAD is issued with the attach option. See the LOAD 
instruction in Chapter 4 for more information about the load operation. 

If the operator presses the Cncl key instead of the Enter key, or if the oper- 
ator is loading another partition, return is made to the partition, to the next 
sequential instruction. 

If the operator presses the Attn key instead of the Enter key, the allow 
detach routine (CFPERATT) is called. 

If 1158 is on, the newly loaded partition is attached before control returns 
to the calling partition. The calling partition is detached. 



KEYBOARD/DISPLAY EXTERNAL STATUS 

The I/O instruction that initiates key entry is the ENTR command. When the 5280 
encounters an ENTR command, it issues the command to the keyboard/display. The 
ENTR command specifies the format of the record as it appears on the screen. The 
keyboard/display uses this screen format to display prompts and accept input fields 
for each record. You use the .SFMT series of control statements in your source pro- 
gram to describe the screen format for a record. Screen formats are described in 
detail in Chapter 2. 

Normal key entry is processed by the keyboard/display without assistance from 
the 5280 controller. An external status condition occurs when the keyboard/display 
unit encounters a situation that does require processing by the controller. When 
such a condition occurs, the keyboard/display interrupts key entry. The controller 
is notified that the keyboard/display needs assistance. Indicators are turned on in 
associated lOBs to indicate that an external status condition is outstanding. Key 
entry cannot be resumed until the external status indicators are turned off. 

When the controller detects the outstanding external status condition, it places 

certain information in the keyboard/display IOB and into certain system registers 

within the partition. It then calls the subroutine you have written to process the 

condition. Your subroutine can use the information in the IOB and system 

registers. The information in the IOB depends upon the particular condition and 

is discussed in the following external status condition descriptions. Except as 

noted in the condition descriptions, the registers contain the information as 

described in Chapter 2 under Externa/ Status and Error Conditions. _ oc 



Rsgistsr Information 

BR 19 Used only with keyboard/display external status, it contains the 

relative address of the start of the current field in the I/O buffer 
that holds the current record. The address is relative to the 
beginning of the partition. The contents of this register are valid 
only if bits 0-4 of BR21 indicate a field specification. 

BR20 Used only with keyboard/display external status, it contains the 

absolute address of the start of the current field in the screen 
refresh buffer. The screen refresh buffer is located within the 
keyboard/display storage, and holds the data that appears on the 
screen. The contents of this register are valid only if bits 0-4 of 
BR21 indicate a field specification. 

BR21 Used only with keyboard/display external status, this register 
contains information about the type of specification being 
processed when the external status condition occurred, as 
follows: 

Bits Meaning 

0-3 Field type or format specification 

0000 = picture check field 

0001 = alphabetic shift field 

0010 = numeric shift field 

001 1 = hex field 

0100 = special characters shift field 

0101 = format level zero field 

01 10 = fixed position prompt 1 

01 1 1 = standard prompt or constant insert 1 
1001 = alphabetic only field 

1010 = numeric only field 

1011 = digits only field 

1 100 = special characters only field 
1110 = display attribute 1 
1111= control specification 1 

4 = not a signed numeric field 

1 = a signed numeric field 

5-15 Field length of the field, minus 1 

BR23 Used only with keyboard/display external status, this contains the 

ETAB index of the current external status condition. 



These specifications are not field specifications; when any of them is used, and the data in the 
remainder of BR21, and in BR 19 and BR20 is not valid. 
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Restricted External Status Indicator 

By setting a system indicator, 1108, you can restrict which external status conditions 
are posted to the partition and determine the way they are posted. If 1108 is on 
when external status is enabled, the only conditions normally posted are external 
status conditions 4, 5, 9 and 12, which are described below. All others are treated 
as though an external status condition was already outstanding when they occurred. 



External Status Subroutines 

External status subroutines must resolve the external status condition and turn 
off the external status indicators. In addition, in most cases, they must either 
provide for resuming key entry under the current ENTR command or cancel the 
current ENTR. These operations can be performed by including the following 
instructions in the external status subroutines: 

ENABLE (turn off external status indicators) 

RESUME (resume key entry) 

RESCAL (RESUME and call a subroutine) 

RETURN (return from subroutine) 

RETEXT (RETURN and ENABLE) 

RESMXT (RESUME and RETEXT) 

CNENTR (cancel current ENTR) 

The external status indicators can be cleared by either the RETEXT instruction or 
the ENABLE instruction. If you want to clear external status indicators before 
you end the subroutine, you can include an ENABLE instruction in any position 
in your subroutine. The last statement in your subroutine must be a RETURN 
instruction. If you wish to clear external status indicators when your subroutine 
has completed executing, you can include a RETEXT instruction as the last instruc- 
tion statement in your subroutine. This acts as both the ENABLE and RETURN 
instructions; it clears the external status indicators and ends the subroutine. 

The RESUME instruction resumes key entry under the current ENTR command. 
The RESUME instruction neither causes a branch nor clears external status indi- 
cators. When the RESUME instruction is executed, the keyboard is unlocked and 
the keyboard/display resumes processing the screen format (specified by the 
current ENTR) at the point where the format was interrupted. The RESCAL 
instruction can be used in place of RESUME to resume key entry. The RESCAL 
instruction performs the same operation as RESUME, and in addition calls 
another subroutine through a label table. Or the RESMXT instruction can be used 
to perform both the RESUME and RETEXT operations. The RETURN instruction 
is described under Subroutine Call and Return instructions in Chapter 4. The 
RESUME, ENABLE, RESCAL, RETEXT, and RESMXT instructions are described 
under Key Entry Instructions in Chapter 4. 

Should you wish to cancel the current ENTR command rather than resuming key 
entry, you can issue a CNENTR instruction. This instruction is described under 
Keyboard Operations in Chapter 4. 
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If an external status subroutine issues a CNENTR, RESUME or RESCAL instruc- 
tion when no ENTR command is being processed, the instruction is ignored. There- 
fore, you may include these instructions for conditions that may occur whether or 
not an ENTR is outstanding. 

You can write one subroutine to handle all external status conditions, or you can 
write a separate subroutine to handle each condition. If you use one subroutine for 
all external status conditions, you must specify the label of the subroutine for the 
ELAB parameter of the .KBCRT control statement. Whenever any external status 
condition occurs, the 5280 will branch to this subroutine. This subroutine must 
clear external status indicators and resume or cancel the current ENTR command. 

If you write a separate subroutine for each condition, you must use the .LABTAB 
control statement to enter the labels of the subroutines into a label table. The label 
of the subroutine to handle condition must be entered into the table first; the 
label for the condition 1 subroutine must be entered next, and so on. You must 
specify the label of the label table in the ETAB parameter ot the .KBCRT control 
statement. Whenever an external status condition occurs, the 5280 uses the external 
status condition number in BR231as the index tor an indexed subroutine call 
through the label table. It branches to the subroutine address that is entered at 
that index position. 

Return from an external status subroutine depends upon the external status condi- 
tion. The following descriptions of the external status conditions include how to 
code a return from the particular external status subroutine, and whether the 
current ENTR is resumed, canceled or completed. An ENTR is completed when 
all the specifications of the screen format have been processed. 



External Status Conditions 

Each external status condition is specified by a condition number. The 5280 stores 
this number into BR23 when an external status condition occurs. If you write a 
separate subroutine to handle each condition, the 5280 uses this number as the 
index into your external status label table (ETAB) to call the appropriate 
subroutine. 

In the following condition descriptions, an external status condition is outstanding 
until the external status indicators are cleared by an ENABLE, RETEXT, or 
RESMXT instruction. 



Condition 0: Double External Status 

This condition occurs when an external status subroutine is interrupted by a 
second external status condition. The second condition may be condition 4 R fi 
7, 10, or 13. It also occurs when the Restricted External Status Indicator (1108) is 
set on, and external status condition 6, 7, 10, or 13 occurs. Condition results 
from programming errors. If an ENTR command is being processed when condition 
occurs, the external status subroutine cannot recover normal key entry by issuing 
a RESUME. 
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When condition occurs, the contents of BR19, BR20, and BR21 are meaningful 
if there is an ENTR outstanding and the cursor is currently positioned within a 
field. When condition occurs, the following status information is stored in the 
key board /display IOB: 

Relative Address Status Information 

Hex FE The condition number of the external status condition that 

caused condition 0. This information remains valid until 
(1) an ENTR command is executed, (2) a keyboard opera- 
tion (including RESUME, RESCAL, RETEXT, and 
RESMXT) is executed, or (3) an external status condition 
occurs. 



Condition 1: Function Key 

Condition 1 results when the operator presses a function key that requires 
processing by a subroutine. 

If condition 1 occurs while an external status condition is outstanding or while the 
restricted external status indicator (1108) is on, it does not cause condition 0. Key- 
board error 1 170, the code for a software overrun error, is displayed on the status 
line unless a keystroke error or program error is already outstanding. The function 
for the keystroke is not processed. 

When condition 1 occurs the contents of BR19, BR20, and BR21 are meaningful 
if there is an ENTR outstanding and the cursor is currently positioned within a field. 

When condition 1 occurs, the following status information is stored in the keyboard/ 
display IOB: 

Relative Address Status Information 

Hex A7 EBCDIC code of the function key. This information 

remains valid until (1) an ENTR command is executed, 
(2) a keyboard operation (including RESUME, RESCAL, 
RETEXT, and RESMXT) is executed, or (3) an external 
status condition occurs. 

Following is a list of the functions. 



Attention Function 

The attention function is initiated when the operator presses the Attn (Attention) 
key. The purpose of the function is defined by your program. This key is 
normally used to call the common function routine CFPERATT. See Allow Detach 
Routine earlier in this chapter. 
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Auto-Enter Function 

The auto-enter function is initiated when the operator presses the Auto Enter key 
on the data entry or proof keyboard. (On a typewriter keyboard it must be initiated 
by a command function key sequence and handled by the external status 2 or 3 
subroutine.) The purpose of the function is to set the auto-enter flag in the key- 
board function control flag byte. 

When this bit is set to 1, the automatic record advance function is enabled. 



Auto-Dup/Skip Function 

The auto-dup/skip function is initiated when the operator presses the Dup Skip key 
on the data entry or proof keyboard. The purpose of the function is to set the 
auto-dup/skip flag in the keyboard function control flag byte. 



Cancel Function 

The cancel function is initiated when the operator presses the Cncl (Cancel) key. 
Your program defines the purpose of the function and processes the function. 



Erase Function 

The erase function is initiated when the operator presses the Erase Input key. The 
purpose of the function is defined by your program. 



Help Function 

The help function is initiated when the operator presses the Help key. The purpose 
of the function is to move a message to the screen. This key is normally used to 
call the common function routine CFHELP01. See Help Text Processor earlier in 
this chapter. 



Next Format Function 

The next format function is initiated when the operator presses the Next Fmt (Next 
Format) key on the data entry or proof keyboard. The purpose of the function is 
to allow the operator to leave a repetitive format. 



Page Forward Function 

The page forward function is initiated when the operator presses the Page Fwd (Page 
Forward) key on the data entry or proof keyboard. The purpose of the function is 
to read the next record without writing the current record. 
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Print Function 

The print function is initiated when the operator presses the Print key. The purpose 
of the function is to specify printed output. 



Record Correct Function 

The record correct function is initiated when the operator presses the shifted Corr 
(Correct) key on the data entry or proof keyboard. The purpose of the function is 
to change from verify mode to enter mode to allow the operator to reenter an 
entire record, then change back to verify mode to reverify the entire record. 



Select Format Function 

The select format function is initiated when the operator presses the Sel Fmt 
(Select Format) key on the data entry or proof keyboard. The purpose of the func- 
tion is to allow the operator to select a screen format for data entry. 



System Request Function 

The system request function is initiated when the operator presses the Sys Req 
(System Request) key. This key is normally used to call the common function 
routine CFLOAD01 . See Standard Load Processor earlier in this chapter. 



Condition 2: Command Key Sequence, Lowercase 

This condition occurs when the operator presses a command key sequence that 
requires processing by a subroutine, and the second key is in lowercase. Your pro- 
gram defines and processes the command functions. If condition 2 occurs while 
another external status condition is outstanding, or while the restricted external 
status indicator (1108) is on, condition does not result. Keyboard error 1 170, the 
code for a software overrun error, is displayed on the status line unless a keystroke 
error or program error is already outstanding. The key-sequence command is not 
processed. 

When condition 2 occurs, the contents of BR 19, BR20, and BR21 are meaningful 
if there is an ENTR outstanding and the cursor is currently positioned within a 
field. 

When condition 2 occurs, the following information is stored in the keyboard/dis- 
play IOB. This information remains valid until (1) an ENTR command is exe- 
cuted, (2) a keyboard operation (including RESUME, RESCAL, RETEXT, and 
RESMXT) is executed, or (3) an external status condition occurs. 



Control Areas 291 



Relative Address Status Information 

Hex A6 Scan code of the second keystroke. (The scan code is a 

unique code generated by the keyboard.) 

Hex A7 EBCDIC of the second keystroke. 



Condition 3: Command Key Sequence, Uppercase 

This condition occurs when the operator presses a command key sequence that 
requires processing by a subroutine, and the second key is in uppercase. Your pro- 
gram defines and processes the command functions. Condition 3 is as for condition 
2 except for the shift of the command key. The IOB status information and register 
information is as for condition 2. 



Condition 4: Forward Pass over Return (RG) Specification 

This condition occurs during formatted key entry under an ENTR command; the 
screen format control string is being processed in a forward direction when an RG 
specification is encountered. (See note following Condition 5 for an explanation of 
the RG specification.) Key entry is suspended; the Reset key or a shift key are the 
only keystrokes that may be entered. If any other key is pressed, an error occurs. 

The subroutine that processes condition 4 must include a RESUME command 
before data keystrokes or function key sequences may be entered. If any other key 
is pressed, an error occurs. 

If condition 4 occurs while another external status condition is being processed, 
condition results. Key entry cannot be resumed with a RESUME command in 
the condition subroutine. 

When condition 4 occurs, the contents of BR 19, BR20, and BR21 pertain to the 
last field exited in the forward direction. The contents of these registers are 
undefined if condition 4 occurs while a CI (check indicator for bypass) specifica- 
tion is being processed, or if the RG specification is encountered before the first 
field definition. 



Condition 5: Backward Pass over Return (RG) Specification 

This condition occurs during formatted key entry under an ENTR command; the 
screen format control string is being processed in a backward direction — such as a 
backspace — when an RG specification is encountered. (See note below for an 
explanation of the RG specification.) Key entry is suspended; the Reset key or a 
shift key are the only keystrokes that may be entered. If any other key is pressed, 
an error occurs. 
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The subroutine that processes condition 5 must issue a RESUME(B) command 
before data keystrokes or function key sequences may be entered. If any other 
key is pressed, an error occurs. 

If condition 5 occurs, the contents of BR 19, BR20, and BR21 pertain to the last 
field exited in the backward direction. If the RG specification is part of a field 
definition, the last field exited is the next sequential field in the forward direction. 
The contents of the registers are undefined if condition 5 occurs while a CI (check 
indicator for bypass) specification is being processed, or if the RG specification is 
encountered before the first field definition. 

Note: You include a return (RG) specification for a CNTL parameter in your 
screen control format whenever you want to temporarily interrupt key entry to 
execute program instruction. See Screen Formats in Chapter 2 and the .SFMT 
series of control statements in Chapter 3 for more information about the RG 
specification. 



Condition 6: Record Advance 

This condition occurs during formatted key entry under an ENTR command when 
all fields within the current screen control format have been processed and the end 
of record functions have been processed. The current ENTR command is completed. 
After the external status subroutine has executed, control returns to the next 
sequential instruction after the ENTR command. 

If this condition occurs while another external status condition is being processed, 
or while the restricted external status indicator is on (1108), condition results. 

When condition 6 occurs, the contents of BR 19, BR20, and BR21 pertain to the last 
field defined in the screen format. 



Condition 7: Record Backspace 

This condition occurs during formatted key entry under an ENTR command, when 
the screen control format is at the first position of the first manual field and the 
operator presses the Home key. The ENTR command is made complete. 

If this condition occurs while another external status condition is being processed 
or while the restricted external status indicator is on, condition results. 

When condition 7 occurs, the contents of BR 19, BR20, and BR21 pertain to the 
first field defined in the screen format. 
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Condition 8: Keystroke Error 

This condition occurs when a keystroke error has occurred and you have specified 
the TRAP parameter of the .KBCRT control statement in Chapter 3. 

If this condition occurs while another external status condition is being processed, 
or while the restricted external status indicator (1108) is set on, condition does 
not result. Keyboard error 1 170, the code for a software overrun error, is dis- 
played on the status line unless a keystroke or program error is already outstanding. 

When condition 8 occurs, the contents of BR 19, BR20, and BR21 are meaningful 
if an ENTR is outstanding and the cursor is currently positioned within a field. 

When condition 8 occurs, the following status information is stored in the key- 
board/display IOB. This information remains valid until (1) an ENTR command is 
executed, (2) a keyboard operation (including RESUME, RESCAL, RETEXT, and 
RESMXT) is executed, or (3) an external status condition occurs. 

Relative Address Status Information 

Hex 84 Hex code of the keystroke error 

Hex A6 Scan code of the keystroke error 

Hex A7 EBCDIC code of the keystroke error 

Condition 9: Keyboard /Display Storage Parity Error 

This condition occurs when a keyboard/display storage parity error is encountered 
and logged into the hard error log. This error normally occurs when keyboard/dis- 
play storage is accessed to process a function. If a keyboard operation caused the 
parity error, the error is not reported until after the operation is completed. You 
are responsible for error recovery. You may choose to either abort the job or 
continue on the basis of the status information stored in the keyboard/display IOB. 
If condition 9 occurs when the restricted external status indicator (1108) is on but 
no other external status condition is outstanding, condition 9 is processed normally. 
If a condition 9 occurs while another condition 9 is being processed, condition 
does not result and the second condition 9 is not displayed on the status line. 
Normal hard error logging is processed for the second condition 9. If condition 9 
occurs while another external status condition (other than condition 9) is being 
processed, condition 12 results. 

When condition 9 occurs, the contents of BR19, BR20, and BR21 are meaningful 
if an ENTR is outstanding and the cursor is currently positioned within a field. 

When condition 9 occurs during normal operation, the following status information 
is stored in the keyboard/display IOB. 
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Relative Address Status Information 

Hex FE If bits 1 and 2 equal 00, it indicates an invalid keyboard/ 

display storage address, which may have resulted from a 
programming error; bits 3-5 indicate the high order 3 bits 
of the absolute address in keyboard/display storage where 
the error occurred. 



Condition 10: Invalid Operation 

This condition occurs when any invalid operation request is detected. If condition 
10 occurs while another external status condition is being processed or while the 
restricted external status indicator is on, condition results. 

When condition 10 occurs, the contents of BR 19, BR20, and BR21 are meaningful 
if an ENTR is outstanding and the cursor is positioned within a field. 



Condition 11: Magnetic Stripe Reader Request 

This condition occurs after a badge has been inserted into the magnetic stripe 
reader, when the badge information has been entered into the magnetic stripe 
reader buffer. If condition 1 1 occurs while another external status condition is 
being processed, the 5280 waits for the other external status condition processing 
to complete before issuing the reader request. If condition 1 1 occurs while the 
restricted external status indicator (1108) is on, the 5280 waits until it is turned 
off before issuing the reader request. 

When condition 11 occurs, the contents of BR19, BR20, BR21 are meaningful 
if an ENTR is outstanding and the cursor is currently positioned within a field. 



Condition 12: Keyboard /Display Storage Parity Error Double Condition 

This condition occurs when a keyboard/display storage parity error (condition 9) 
occurs while another external status condition (other than a condition 9) is out- 
standing. The condition 9 is logged into the hard error log. The subroutine that is 
processing the other external status condition is interrupted, and a branch is made 
to the condition 12 subroutine. The condition 12 subroutine should be terminated 
with a RETURN command rather than a RETEXT, so control returns to the inter- 
rupted subroutine. When condition 12 occurs, the contents of BR19, BR20 and 
BR21 is meaningful if an ENTR is outstanding and the cursor is currently posi- 
tioned within a field. The status information stored in the keyboard/display IOB 
is as for condition 9. 
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Condition 13: Screen Format trror 

This condition occurs during formatted key entry when an error is detected in the 
syntax of the current screen format control string. The screen format control 
string is the object code generated from one series of .SFMT control statements. 
See the Functions Reference Manual for a complete description of the bytes within 
a screen format control. When condition 13 occurs, the currently executing ENTR 
command is made complete. The following list indicates the kinds of errors that 
cause condition 13. 

• The primary or secondary screen format has more than one start (.SFMSTS) 
or end (.SFMTEND) specification. 

• An end (.SFMTEND) specification is encountered while processing within a 
bypass specification. (See Conditional Bypass under Field Control in Chapter 2 
for a description of a bypass specification.) 

• The screen format control string has nested bypass specifications. 

• The screen format control string has nested secondary formats. (See Secondary 
Screen Format under Field Control in Chapter 2 for a description.) 

• The screen format control string has unmatched bypass specifications to start 
bypass and end bypass. 

• The screen format control string has an invalid character set byte. 

• The screen format control string has an invalid subfield (PIC) specification. 

• The screen format control string has an invalid control byte. 

if a condition 13 occurs when another external status condition is being processed, 
or while the restricted external status indicator is on, condition results. When 
condition 13 occurs, the contents of BR19, BR20, and BR21 are meaningful if an 
ENTR is outstanding and the cursor is currently positioned within a field. 

When condition 13 occurs, the following information is stored in the keyboard/ 
display IOB. This information remains valid until (1) an ENTR command is 
executed, (2) a keyboard operation (including RESUME, RESCAL, RETEXT, and 
RESMXT) is executed, or (3) an external status condition occurs. 

Relative Address Status Information 

Hex 9A Relative address of the byte within the screen format 

control string that caused the error. 
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Chapter 7. The ACL to Assembler Language Conversion Program 



The ACL (Application Control Language) to assembler language conversion pro- 
gram helps you convert source programs written in ACL to assembler language 
source programs. Use the conversion program each time you convert an ACL pro- 
gram to an assembler language program. The conversion program should be used 
only once with each program that is converted. No optimization is attempted by 
the conversion program. Any further changes or modifications made to the con- 
verted programs should be done directly in assembler language. 

The conversion program converts most ACL instructions and control statements 
to assembler language. However, certain control statements and instructions 
cannot be converted by the conversion program; these must be converted to 
assembler language manually. The assembler language output generated by the 
ACL control statements and instructions contains a message for each line of ACL 
code that must be converted manually. Error messages generated by the conversion 
program are listed in Appendix E. 



OPERATION 



The conversion program is stored on the assembler diskette. Use the standard 
load processor to load the conversion program. The name of the conversion pro- 
gram data set is SYSACLC. 

When the conversion program is loaded, it displays the following prompt: 

Prompt 1 



rO 0001 A 16 i+0 I 

SYSACLC - ACL TO ASM CONVERSION AID I 

Insert INPUT diskette and enter: I 



Data set name 



-f* Device address: *tf* 

I zJ 



Insert the input diskette into the selected diskette drive. Enter the name of the data 
set that contains the ACL program to be converted. The data set name can contain 
up to 17 characters. The ACL program is assumed to be error free. If it is stored 
on a volume protected diskette, the prompt for an owner ID is displayed. (See 
Prompt 5 in Chapter 5.) The input data set must remain in the diskette drive while 
the conversion program is executing. 

Enter the device address and press the Enter key. The device address must be four 
alphanumeric characters. Do not use a logical device ID. 
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it an invana input oaia set name or an invana aevice aaaress is entered, an error 
recovery message is displayed. 

If no error occurs the following prompt is displayed. 

Prompt 2 



( >| 

I 0001 A 16 E2 I 

I SYSACL.C - ACL TO ASM CONVERSION AID I 

J* Insert OUTPUT diskette and enter: J„ 



Data set name: 



^fk lid in »e \ ii dine ■ 

I Device address: | 

I zJ 



A default data set name, SYSIN, is displayed with the device address you entered for 
the preceding prompt. You can change the data set name and device address by 
keying over the defaults. 

The output data set must remain in the diskette drive while the conversion pro- 
gram is executing. The output data set should be at least 2.5 times the size of 
the input data set, and it should be empty when the conversion program begins. 
If the output data set is I exchange, the header label must contain a valid delete 
character. 

If an invalid device address is entered, an error message is displayed. 

If the data set name you specify for the output data set is not found, the following 
prompt is displayed. 

Prompt 3 



rOOOl Y 01 i+() I 

Output data set not found, Do you want it allocated? I 

Op t i ons are I 

1 V ~ ,- "^ 



1. Yes 



l"" ■—• "J 



If you select 2, prompt 2 is redisplayed with the data set name and device address 
you entered previously. You can change the previous entry by keying over the 
existing data. 

If you select 1 , the output data set is allocated on the diskette at the specified device 
address. After the data set is successfully allocated, prompt 4 is displayed. 
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Prompt 4 



( N 

I o 0001 y oi y I 

I Do you want ACL. input included as comments in output? I 

J^ Options are Js 



1. Yes 



T 2 N ° T 

I SELECT OPTION: Press ENTER 28-03 I 



Enter a 1 if you want the assembler language output only, or enter a 2 if you want 
the assembler language and the original ACL statements as output. If you 
chose to have the original ACL included in the output, each ACL line is 
written as a comment line. Each ACL line precedes the assembler language 
lines it generated. 

After you enter a valid option number and press the ENTER key, the conversion 
process begins. The ACL control statements and instructions are read sequentially, 
then translated to corresponding assembler language control statements and 
instructions. 

If any ACL statement contains source code that the conversion program cannot 
convert, the conversion program inserts one of the following messages in the 
assembler language source at the position of the untranslatable code: 

*MSG** "Message or .MSG***Message 

These messages allow you to assemble the rest of your assembler language source 
while preventing loadable object code from being produced. The message that 
begins with an asterisk indicates code that is loadable object code, but that may 
not produce the results you expect. The message that begins with a period indicates 
code that you must change. If your program generates a message that begins with a 
period, the following prompt is also displayed: 

Prompt 5 



r. ) 

I UNTRANSLATABLE CODE HAS BEEN FOUND. THE ASM SOURCE CANNOT BE I 
J* ASSEMBLED. CHECK THE ASM SOURCE FOR MESSAGES. JL 

I zJ 



Each ACL statement that cannot be converted by the conversion program must 
be converted manually. 
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When the ACL to assembler language conversion program has successfully 
completed, the following is displayed: 

Prompt 6 



( \ 

I 0001 Y 01 1+0 I 

I CONVERSION COMPLETED. I 

*"^ Options are J» 



Options are 

1. Restart 3. Assemble 



««. l. Restart i> . HssemDie *f 

1 2. Exit I 

I SELECT OPTION: _ Press ENTER 28-79 I 

If you select 1 , the conversion program restarts at the beginning. If you choose to 
exit, the standard load processor redisplays the standard load prompt. If you 
select 3, the conversion program loads the IBM 5280 Assembler Program Product 
(see Chapter 5) to process the data set output from the conversion program. 
When the assembler encounters the untranslatable code message, it includes an 
error message for that line in the assembler listing. You must convert this line 
to assembler language and reassemble the program. 



NOTES ABOUT THE CONVERTED PROGRAM 

The following discussion describes the format of the converted program and how 
the converted program may differ from the original ACL program. 



The Format of the Converted Program 

An ACL line often converts to more than one assembler language line. This can 
cause indexed branch instructions and dynamic instruction modification in the 
ACL program to produce unpredictable results in the converted program. 

Each control statement in the converted program is preceded by a period in the 
first column of the line. Each control statement and instruction ends with a 
semicolon. A line that begins with an asterisk is treated as a comment line. 



Labels and Sequence Numbers 

If a label is present in an ACL line, a colon is inserted in column 5, and this label 
precedes the assembler language line or lines generated from the ACL line. 

If a sequence number is present in an ACL line, the number is preceded by N and 
used as a label on the assembler language line generated from the ACL line. If 
more than one assembler language line is generated, the label is placed on the 
first assembler language line generated from the ACL line. 
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If an ACL line does not have a sequence number, the conversion aide generates 
a sequence number. The generated number is preceded by N and placed on the 
assembler language line, or the first of the assembler language lines, generated 
from the ACL line. For example, if the ACL program has the following instruc- 
tion in line 0007: 

AAAAIFD K = 009 

it is converted to the following assembler language code: 



A AAA: 

N0007: IFD K NE GOTO 
GOTO N0009 



N0008: 



The Format of the Display Screen 

The following illustration shows the format of the screen for ACL, and the 
format of the screen for a converted program. 

ACL Screen Format 



1 A 1 

1 D | 
1 D 1 


1 D | 


| 1 B 8/11 C | 



i Screen 


ACL 
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ASM 


i Position 
i 


1 Buffer 


Positions 


Buffer 
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01 
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01 
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01 


41-48 ' 


1 (B) 


i (02) 


(121-128) 






I C 


! 01 


51-120 


01 


51-120 ! 


S D 


! 02 

1 


1-120 


02 


1-128 | 



) implies 'B' or 'M' option in col 28 on .FIELD 
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5280 Screen Format 



Status Line 



1 B 8/11 C 



In ACL, buffers 01 and 02 contain data that is displayed. On the 5280, a screen 
refresh buffer in keyboard/display storage maintains the screen display according 
to the screen control format referred to in the current ENTR command. The con- 
version program provides for placing the contents of buffers 01 and 02 into the 
screen refresh buffer by inserting the following instruction in the converted 
program: 

ENTR(SFMTXXX); 



Buffers 



The conversion aid does not automatically declare all 56 buffers. Only the 
following buffers are declared: 

• Buffers 01 and 02. These buffers are contiguous and precede all other 
buffers. 

• Buffers initialized by a .BUFFER control statement in the ACL program. 
These buffers are contiguous if their associated .BUFFER control statements 
are contiguous. 

• Buffers referred to in instructions that are not declared by methods (1) or (2). 
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Implied Usage of Buffers 

Implied usage of a nondeclared buffer may produce unpredictable results. For 
example, the ACL instruction PRNT allows buffer specification for a print 
buffer. The buffer referred to in the PRNT instruction will be declared as a 
128-byte buffer. However, the ACL .PRINTER control statement could specify 
up to 132 characters per line. In ACL, the print buffer referred to in the PRNT 
instruction is used for the first 128 characters, and the next sequential buffer is 
used implicitly for the remaining characters. The conversion aid does not 
declare the implied buffer. In the converted program, the declared print buffer 
is used for the first 128 characters and the next sequential declared buffer is used 
for any remaining characters. If you use more than 128 characters per line, it 
is recommended that you increase the size of the declared print buffer in the 
converted program. 

Unlike ACL, the converted program does not store the .FIELD and .FORMAT; 
information in the buffers. Therefore, any attempt to modify .FIELD state- 
ments during execution of the ACL program by referring to the buffer in which 
they are stored requires manual translation. 



The Physical Buffer Size 

ACL programs use basic exchange diskettes, which require a physical buffer size 
of 128 bytes. If you plan to use a different exchange type for your converted 
program, be sure your physical buffer size is valid for that exchange. I exchange, 
for example, requires a physical buffer size at least twice the diskette sector size. 



FIELD Buffers 

The 5280 does not use buffers for the .FIELD control statements in the same 
way the 3741 used them for ACL programs. The conversion aid converts the 
.FIELD control statements to a screen control format and stores the screen control 
format in the next available storage location. 

The conversion aid does not handle all the options that were available in ACL to 
assign to buffers in the .FIELD control statements. This does not affect the 
functions available in the converted program. 

The conversion aid requires that all .FIELD control statements that refer to the 
same buffer be contiguous in the ACL program. This means that if a series of 
.FIELD statements refer to a buffer, such as buffer 05, and then subsequent 
.FIELD statements refer to another buffer, such as 06, the following .FIELD 
statements cannot refer to the first buffer (buffer 05). 

The overflow buffer (ACL columns 18-19) is ignored. If an ACL .FIELD control 
statement specifies overflow into the next buffer to which .FIELD control state- 
ments refer (this is usually the case), the ACL program will convert correctly. 
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The ACL .ENTR instructions refer to fields by field number, relative to the start of 
the buffer. The conversion aid assigns screen format numbers sequentially anu 
converts the ACL references to these numbers. This may result in a field sequence 
error of one if a field overflowed from one buffer to another in the ACL program. 

If you add any screen control formats to a converted program, place them following 
the last screen control format generated by the conversion aid in order to maintain 
proper numbering sequences. 



The .FORMAT Control Statement 

The 5280 uses a currency symbol that is always two characters in length. The con- 
version aid attempts to allow for this when converting ACL .FORMAT control 
statements. 



Indexed Branch Instructions 

Because more than one line of assembler langauge instructions can be generated 
from one ACL instruction, indexed GOTO instructions in the ACL program 
may not produce the expected result in the converted program. You can replace 
the indexed GOTO instructions with GOTO instructions in the converted program. 
Or you can set up a label table of addresses with a .LABTAB control statement 
and replace the indexed GOTO with a GOTAB in the converted program. The 
GOTAB instruction uses the label table of addresses to make the indexed branches. 



The OPEN Instructions 

The converted program does not automatically issue an OPEN instruction when 
an I/O instruction specifies an unopened data set IOB. The converted program 
will, however, try to open all data sets at the start of program execution. 

The 5280 cannot issue an OPEN instruction to a device that already has a data 
set IOB open for label update. Therefore, if the ACL program opened a diskette 
data set for label update, it must be closed before any other data sets on that 
diskette can be opened. 



The ENTR Instructions 

In ACL, an indicator is set whenever an ENTR is executed. Any assembler ENTR 
instruction that was generated from an ACL ENTR instruction sets an indicator 
(1227 in the converted program) when the ENTR instruction is executed. If you 
add ENTR instructions to a converted program, this indicator is not automatically 
set when the added ENTR instruction is executed. If you want the indicator to 
be set, you must write code to set the indicator and include this code in the con- 
verted program in addition to the ENTR instruction. 
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The ACL Deleted Record Subroutine 

The 5280 does not read deleted records unless they are read by relative record 
number, which in turn results in an external status condition. The ACL 
deleted record subroutine, which is specified in columns 48-51 of the 
.DATASET control statement in the ACL program, is not processed by the 
conversion aid. The converted program will contain a message if columns 
48-51 are not blank in the .DATASET statement in the ACL program. 



Overlapping for PRNT Instruction 

The converted program does not use overlapped I/O for printer operations. The 
printer operations in the converted program use SCS conversion data sets. For 
this kind of data set, overlapping is invalid. 



Function Keys 

In the converted program, certain function keys are substituted for the function 
keys used in ACL. The following lists ACL function keys and explains how 
these function keys are handled for a converted program. For a description 
of how all the function keys are handled for a program originally written in 
5280 assembler language, see the Functions Reference Manual. 



The System Request/Attention Key 

In a converted program this key is handled in the same way it is handled for 
any program on the 5280. 



The Reset Key 

In ACL, the Reset key turns on an indicator in addition to resetting the error con- 
dition. If you want this indicator turned on during the execution of a converted 
program, press the Help key instead of the Reset key. When the operator presses 
the Reset key in a converted program, the error condition is reset: the status line 
stops blinking and the operator can enter correct keystrokes. 



The Command/End of Job Key Sequence and the Help Key 

If there is an error during the execution of a converted program, the status line 
blinks and displays error information. While the status line is blinking, the 
operator can (1 ) press the Reset key to reset the error and stop the blinking, 
(2) press the Cmd key, then the End of Job command function key to terminate 
the job, or (3) press the Help key to have help text displayed. 
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ACL Double-Shift Reset 

During the execution of a converted program, press the Cncl key in upper shift to 
emulate the function caused by pressing the Alpha shift, Num shift, and Reset 
keys simultaneously during the execution of an ACL program. 



The ACL Tab Key 

There is no Tab key on the 5280. During the execution of a converted program, 
press the Page Forward key to emulate the ACL Tab key function. 



ACL T-Option Keys 

The conversion aid does not check the T-option in the ACL .FIELD control 
statement. Five of these keys are always handled as though the T-option in the 
ACL program were specified to redefine the keys. These keys include the: 

• Dup key 

• Sel Prog key 

• Rec Adv key 

• Rec Bksp key 

• Field Adv key 

When any of these keys is pressed during the execution of a converted program, the 
current ENTR command is terminated. Data that has been entered is preserved. 
Any specified right adjust function is not performed on the current field. Special 
keyboard indicator (1230 in the converted program) is set. 

The Field Bksp key is handled as though the T-option in the ACL program were not 
selected for this key. When the Field Bksp key is pressed during the execution of 
a converted program, if the cursor is in any position of the field other than the 
first position, the cursor goes back to the first position of the field. If the key is 
pressed when the cursor is in the first position of the field, it is handled as for one 
of the preceding five T-option keys. 



ACL Toggle Switches 

During the execution of an ACL program, you could use a toggle switch to change 
the status of one of the following functions: 

• Auto Rec Adv 

• Auto Dup/Skip 

• Numbers only field 
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The 5280 does not have these toggle switches. During the execution of a con- 
verted program, you can emulate the function of the toggle switches by 
pressing the following keys: 

• Auto Enter key— emulates the auto Rec Adv switch 

• Dup Skip key— emulates the Auto Dup/Skip switch 

• Erase input key— emulates the Numbers Only setting on the Prog Num 
Shift switch 

When one of these keys is pressed, if the function is disabled it is enabled; if the 
function is enabled it is disabled. 



CONVERSION CHART 



This chart is intended as a preliminary guide for ACL programmers who are 
beginning to program in the 5280 assembler language. It shows the 5280 
assembler language control statements and instruction mnemonics that most 
closely correspond to the ACL control statements and instruction mnemonics. 
All ACL control statements and instructions are listed, although not all ACL 
instructions have corresponding 5280 assembler language instructions. 

The 5280 assembler language has many control statements and instructions 
that are not available with ACL. Instructions for table operations, conditional 
branches and skips, and data movement have been greatly expanded in the 5280 
assembler language. Instructions for binary arithmetic and logical operations have 
been added, along with numerous mask operations for bit manipulation. There- 
fore, the control statement or instruction that corresponds to ACL is not 
necessarily the most appropriate 5280 assembler language control statement or 
instruction to use. 



Control Statements 



ACL 
Mnemonic 



5280 
Mnemonic 



.NAME 



.START 
.EDITC 



.DATASET 

.PRINTER 

.SELF-CHECK 

.REGISTER 

.FORMAT 



.DATASET 

.DATASET 

.SELFCHK 

.DC 

.FMTST 

.FMTFLD 

.FMTEND 



.BUFFER 



.DC 
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Mnemonic 



52SQ 
Mnemonic 



.FIELD 



.SFMTST 

.SFMTCTL 

.SFMTFLD 

.SFMTCNS 

.SFMTPMT 

.SFMTEND 



.END 



.END 



Instructions 






ACL 
Mnemonic 


5280 
Mnemonic 


Operation 


+ 
/ 
16 


+ 

/ 

* 

Rn = 


Add 

Subtract 

Divide 

Multiply 

Move register to register 


CCMD 




I/O adapter command 


CKPT 




Checkpoint 


COMM 


TINIT 


Communications linkage 


CRDP 
CLOZ 
CRDR 


CLOZ 


Punch a card 
Close file 
Read a card 



CRFL 



Read file 



CCRD 




Read a record from attachment 


CSEL 




I/O adapter control 


CSTR 




Start character 


CWFL 




Write file 


CWRD 




Write a record to attachment 


ENTR 


ENTR 


Keyboard input 


EXCH 


<=> 


Exchange 


EXEC 


LOAD 


Execute next program 


EXIT 


EXIT 


Exit program 


GETB 


MVC 

Rn = disp (len,BRn) 


Move data from buffer to register 
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ACL 


5280 




Mnemonic 


Mnemonic 


Operation 


GOTO 


GOTO 


Unconditional branch 


GSCK 


GSCK 


Generate self check 


ICBR 


label = constant 


Insert character in buffer 


IF \SNJ 


IF Rn \SN/ 


Test register numeric 


IF> 


IF RnGT 


If register greater than 


IF< 


IF Rn LT 


If register less than 


If = 


IF RnEQ 


Compare register logical 


IF- 


IF Rn- 


If register minus 


IFO 


IF RnO 


If register zero or blank 


If CHK 


If Rn Ck 


Self-check test 


IF CRD 




Test if card is busy 


IF FMT 


If fmt 


Test format number 


IFPRT 




If printer busy 



IFC 



Test for attachment busy 



Note: This mnemonic is used for a different operation in the 5280 assembler 
language. 



IFD> 
IFD< 
IFD = 



IFDLT 
IFDGT 
IFDEQ 



Compare decimal for less than 
Compare decimal for greater than 
Compare decimal for equal 



IFI 
IFIR 



IFI 
IFIR 



Test indicator 

Test and reset indicator 



(load) + 
(load - 



Rn = +n 
Rn = -n 



Load positive constant into register 
Load negative constant into register 



L 

LS 

LOAD 



SL 

SLS 

Rn = label (len) 



Shift left 

Shift left signed 

Load register from buffer 



Note: This mnemonic is used for a different operation in the 5280 assembler 
language. 



MOFF 


MOFF 


MOVE 


MVC 


MVER 


MVER 


NOP 


NOP 



Move partial contents to register offset 
Move buffers 

Move partial contents, register to register 
Null operation 



OPEN 



OPEN 



Open a file 
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ACL 


coon 


Mnemonic 


Mnemonic 


PCTL 




PRNT 


WRT 


PUTB 


MVC 




disp(len,BRn) = Rn 


R 


SR 


RBLK 


REBF 


READ 


READ 


REFM 


REBF 


RGO 


CALL 




RETURN 


RR 


SRR 


RS 


SRS 


SCE 


IFC... IS 


SCN 


IFC... NOT 


SOFF 


SOFF 


SON 


SON 


STOR 


label (len) = Rn 


TBFN 


TBFH 


TBFX 


TBFX 


TBRD 


TBRD 


TBWT 


TBWT 


WAIT 


WAIT 


WBLK 


WRBF 


WRFM 


WRBF 


WRT 


WRT 


WRTE 


WRT 


WRTS 


WRTS 


ZONE 


ZONE 



Operation 

Printer skip or space 

Print a line 

Move from register to buffer 



Shift right 

Reformat registers at buffer offset 

Read from [diskette] 

Formatted read from buffer 
Return transfer 

Shift right and round 
Shift right signed 

Skip if character equal 

Skip if character not equal 

Set indicators off 
Set indicators on 

Store register to buffer 

Search table for equal/high entry 

Search table for equal entry 

Read table entry 

Write table entry 

Wait for I/O completion 

Reformat buffer at offset 

Formatted write to buffer 

Write record to diskette 

Write extend 

Delete a record 

Zone part of register 
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Indicator Conversion 

Many ACL indicators have direct counterparts in 5280 assembler language, as 
shown in the following table. When these indicators appear in SON, SOFF, IFI, 
or IFIR instructions, the 5280 assembler language equivalent will be substituted. 
Other ACL indicators, particularly those set from the keyboard, are simulated 
by generated software. They are shown by numbers in parentheses. The 
remaining indicators are not translatable or require special handling, as shown 
in the footnotes. The following table lists all the ACL indicators: 



ACL 








Assembler 


Indicator 


Definition 


Set On By 


Set Off By 


Indicator 


1-99 


User specified 


User program 


User program 


1-99 


100-146 


Reserved 








147 


Printer error 


Any printer error 


User program 


None 


148 


Print page 
overflow 


Printer reaches 
overflow line 
spec'd in col 
23-25 of 
.PRINTER 


Next prnt inst 


115 


149 


Card I/O EOD 


?/card read 


User program 


None 


150 


Card I/O EOJ 


?*card read 


User program 


None 


151-153 


Reserved 








154 


Invalid GSCK 
-MOD 1 1 


GSCK result =10 


User program 


117 


155 


RBLK/WBLK 
overflow 


Low-order of reg 
= 000 


User program 


(192) 


156 


Table index 
error 


Read/write past 
end of table 


User program 


126 


157 


Division error 


Divide by 


User program 


120 


158 


Multiply 
overflow 


Carry from mult 


User program 


123 


159 


Add/subtract 
overflow 


Carry from +/ 


User program 


124 


160 


Machine check 


Ind 155-159 ON 


User program 


Note 1 


161 


Error line 


System error 
causing keyboard 
lock or screen 
flash 


User program or 
Reset key 


None 


162 


Short keyboard 
buzz 


User program 


User program 


Note 2 


163 


Table high 


= Not found but 


User program or 


101 




entry found 


> entry found 


hdwr 




164 


Printer busy 


Print command 


Print done 


Note 3 


165 


Disk drive busy 


Disk busy 


Disk not busy 


Note 4 


166 


Auto rec adv 
switch 


Switch on 


Switch off 


(212) 


167 


Prog num shift 


Switch on 


Switch off 


(213) 


168 


Auto dup/skip 
switch 


Switch on 


Switch off 


(214) 


169-184 


Reserved 








185 


Set pgm 


Key pressed 


User program/ 
ENTER 


(215) 
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ACL 








Assembler 


indicator 


Definition 




o_.i r\xx r». . 
oei isi i Dy 


IllUlbOlUI 


186 


Dup 


Key pressed 


User program/ 
ENTER 


(216) 


187 


*Field cor 


Key pressed 


User program 


(217) 


188 


*New line 


Key pressed 


User program/* 


(218) 


189 


*Tab 


Key pressed 


User program/* 


(219) 


190 


Rec bksp 


Key pressed 


User program/ 
ENTR 


(220) 


191 


*Char adv 


Key pressed 


User program/* 


(221) 


192 


* Reset 


Key pressed 


User program/* 


(222) 


193 


Field adv 


Key pressed 


User program/ 
ENTR 


(223) 


194 


Skip 


Key pressed 


User program/ 
ENTR 


(224) 


195 


Right adj 


Key pressed 


User program/ 
ENTR 


(225) 


196 


Neg right adjust 
(-) 


Key pressed 


User program/ 
ENTR 


(226) 


197 


Keyboard open 


ENTR 


ENTR complete 


(227) 


198 


Field bksp 


Key pressed 


User program/ 
ENTR 


(228) 


199 


Rec adv 


Key pressed 


User program/ 
ENTR 


(229) 


200 


Special key- 


Ind 185, 186,190, 


User program/ 


(230) 




board ind 


193, 198, and 
199 


ENTR 




201 


Lower char adv 


Key pressed 


These may be set 


(231) 


202 


Lower dup 


Key pressed 


off by reset, ind 


(232) 


203 


Lower field cor 


Key pressed 


187=189, 191, 


(233) 


204 


Lower < 


Key pressed 


or the next 


(234) 


205 


Lower # 


Key pressed 


Func Sel or by 


(235) 


206 


Lower % 


Key pressed 


the user program 


(236) 


207 


Lower / 


Key pressed 




(237) 


208 


Lower hex 


Key pressed 




(238) 


209 


Upper % 


Key pressed 




(239) 


210 


Upper / 


Key pressed 




(240) 


211 


Upper hex 


Key pressed 




(241) 


212 


Upper - 


Key pressed 




(242) 


213 


Lower rec adv 


Key pressed 




(243) 


214 


Lower @ 


Key pressed 




(244) 


215 


Lower sel prog 


Key pressed 




(245) 


216 


Lower field adv 


Key pressed 




(246) 


217 


Upper @ 


Key pressed 




(247) 


218 


Upper sel prog 


Key pressed 




(248) 


219 


Upper field adv 


Key pressed 




(249) 


220 


Upper char adv 


Key pressed 




(250) 


221 


Upper dup 


Key pressed 




(251) 


222 


Upper field cor 


Key pressed 




(252) 


223 


Upper < 


Key pressed 




(253) 


224 


Upper * 


Key pressed 




(254) 
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ACL 








Assembler 


Indicator 


Definition 


Set On By 


Set Off By 


Indicator 


225 


No record found 
DSN 1 


Data mgmt 


User program 




226 


No record found 
DSN 2 


Data mgmt 


User program 




227 


No record found 
DSN 3 


Data mgmt 


User program 




228 


No record found 
DSN 4 


Data mgmt 


User program 




229 


Key not in 
table DSN 1 


Data mgmt 


User program 




230 


Key not in 
table DSN 2 


Data mgmt 


User program 




231 


Key not in 
table DSN 3 


Data mgmt 


User program 




232 


Key not in 
table DSN 4 


Data mgmt 


User program 




240 


Continued 
checkpoint 


CKPT completed 


User or new CKPT 


None 



Notes: 

1. The IFI instruction converts to: 
IF BR7 IS/NOT 0; 

The other instructions generate a message. 

2. The SON instruction converts to: 
BUZZ; 

The other instructions generate a message. 

3. The IFI instruction converts to: 
IFDSI2,n 

where n is a number from 1 through 214; 
The other instructions generate a message. 
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Appendix A. Mnemonic to Operation Code Conversion Chart and Instructions 
Format 



The assembler mnemonics are listed in alphabetical order. Arithmetic operators 
are listed with the associated register; for example, binary add is listed as BRn+= 
and decimal double precision divide as Rn(4)/. The instruction format and 
operation code that is generated by the assembler are indicated for each mnemonic. 
The operation code is always stored in the first byte of the 4-byte object code 
instruction. The contents of the other 3 bytes will be described in the 
Functions Reference Manual. 



Mnemonic 

ALLOC 
AND 

BINDEC 
BINHEX 
BRa = BRb 
BRa<=>BRb 
BRn = nn 
BRn (4) -= 
BRn (4) += nn 
BRn (4) -= nn 
BRn (4) += 
BRn [(4)] /= 
BRn &= 

BRa&=d(1,BRb) 
BRn &=nn 
BRn V= 

BR V=d(1,BRb) 
BRn V=nn 
BRnX= 

BRaX=d(1,BRb) 
BRn X=nn 
BRn += 
BRn-= 
BRn[(L)] *= 
BRa+=d(1,BRb) 
BRa-=d(1,BRt>) 
BRn=(indexed) 
BRn -= nn 
BRn +=nn 
BRn (4) -= 
BRn(4) -= 
BRn = Rn 
BUZZ 
CALL 



Op 


Source 


Code 


Format 


34 


ALLOC (dsn„BRn) 


42 


IFHI/IFLO BRn AND constant IS 




constant SKIP 


A6 


BINDEC (Rn,label) 


49 


BINHEX (label[(L)], BRn) 


98 


BRa = BRb[(L)] /label 


45 


BRa<=>BRb/label 


99 


BRn = nn 


96 


BRa(4) -=BRb[(L)]/label[(L)] 


95 


BRn(4) += nn 


97 


BRn(4) -=nn 


94 


BRa(4)+=BRb[(L)]/label[(L)] 


AB 


BRn [(4)] /=label/BRb 


9A 


BRa&=BRb[(L)] /label [(L)] 


BA 


BRa&= [d] ([L],BRb) 


9B 


BRn &=nn 


9C 


BRa V=BRb[(L)] /label [(L)] 


BC 


BRaV= [d] ([L],BRb) 


9D 


BRn V=nn 


9E 


BRaX=BRb[(L)]/label[(L)] 


BE 


BRaX= [d] ([L],BRb) 


9F 


BRn X= nn 


90 


BRa+=BRb[(L)]/label[(L)] 


92 


BRa-=BRb[(L)]/label[(L)] 


AA 


BRa [(4)] *=BRb 


BO 


BRa+= [d] ([L],BRb) 


B2 


BRa-= [d] ([L],BRb) 


B8 


BRa= [d]([L],BRb) 


93 


BRn -=nn 


91 


BRn += nn 


B4 


BRa(4)+= [d]([L],BRb) 


B6 


BRa(4)-= [d]([L],BRb) 


A7 


BRn = Rn 


C7 


BUZZ 


OB 


CALL [BRn,] label/d 
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Op 


Source 


Mnamnnic 


Code 


Format 


CALLTB 


OB 


CALLTB BRn , label 


CLC 


AE 


CLC(BRa,BRb,L) 


CLICK 


C7 


CLICK 


CLOZ 


23 


CLOZ(dsn)[,N/R/E/D,W/P,C/V/*,C/L/*,BRn] 


CNENTR 


C7 


CNENTR 


CRTMM 


CA 


CRTMM(BRa,BRb,BRC [,NC/S]) 


d(1,BRa) = BRb 


A3 


[d]([L],BRa) = BRb 


d(1,BRn) = constant 


B9 


[d]([L],BRn) = constant 


d(1,BRn) = Rn 


7L 


[d]([L],BRn) = Rn 


d,Rn = constant 


44 


[d] ,Rn = constant 


DECBIN 


A7 


DECBIN (label, Rn) 


DECR 


06 


DECR BRn GOTO label 


DISPEX 


C7 


DISPEX 


DISPST 


C7 


DISPST 


DUP 


BD 


DUP([d,]BRn,L) 


ENABLE 


OC 


ENABLE ([label] ,[POP]) 


ENTR 


CF 


ENTR (sfmt[,BRn,0/N]) 


EXIT 


2F 


EXIT 


GOTAB 


08 


GOTAB BRn,label 


GOTO 


00 


GOTO label 


GOTO BRn (indexed) 


08 


[BRn,] [label] 


GSCK 


48 


GSCK(Rn) 


HEXBIN 


4A 


HEXBIN (BRn,label[(L)]) 


IF BRn EQ 


6E 


IF BRa EQBRb GOTO label 


IFBRnGE/LE 


6F 


IF BRa GE/LE BRb GOTO label 


IFBRnGT/LT 


6D 


IF BRa GT/LT BTb GOTO label 


IFBRnNE 


6C 


IF BRa NE BRb GOTO label 


IF BRn 


03 


IF BRn IS/NOT GOTO label 


IFfmt 


02 


IF fmt IS/NOT FMT GOTO label 


IF Rn AN 


0D 


IF Rn IS/NOT AN GOTO label 


IF RnCK 


0E 


IF Rn IS/NOT CK GOTO label 


IF Rn EQ 


62 


IF Ra EQ Rb GOTO label 


IF RnGE/LE 


63 


IF Ra GE/LE Rb GOTO label 


IF RnGT/LT 


61 


IF Ra GT/LT Rb GOTO label 


IF RnNE 


60 


IF RaNE Rb GOTO label 


IF RnSN 


OF 


IF Rn IS/NOT SN GOTO label 


IF RnO 


01 


IF Rn IS/NOT GOTO label 


IF Rn- 


05 


IF Rn IS/NOT - GOTO label 


IFBIS 


BB 


IFB [d](BRn) IS constant SKIP 


IFBOFF 


B5 


IFB [d] (BRn) OFF constant SKIP 


IFBON 


Bf 


IFB [d] (BRn) ON constant SKIP 


IFCIS 


4E 


IFC [d],Rn/label IS constant SKIP 


IFCNOT 


4C 


IFC [d] ,Rn/label NOT constant SKIP 


IFD Rn EQ 


66 


IFD Ra EQ Rb GOTO label 


IFD RnGE/LE 


67 


IFD Ra GE/LE Rb GOTO label 


IFD RnGT/LE 


65 


IFD Ra GT/LT Rb GOTO label 


IFD RnNE 


64 


IFD RaNE Rb GOTO label 


IFDSI 


25 


IFDSI n,dsn IS/NOT ON GOTO label 


IFI 


07 


IFI In IS/NOT ON GOTO label 
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Op 


Source 


Mnemonic 


Code 


Format 


IFHBRn EQ 


6A 


IFHBRa EQ nn GOTO label 


IFHBRnGE/LE 


6B 


IFH BRn GE/LE nn GOTO label 


IFH BRn GT/LT 


69 


IFH BRn GT/LT nn GOTO label 


IFHBRn NE 


68 


IFHBRn NE nn GOTO label 


IFIR 


04 


I Fl R In IS/NOT ON GOTO label 


INXEQ 


A5 


INXEQ (BRn[(4)] label [,n] ) 


INIT 


33 


INIT(dsn,BRn) 


INSBLK 


32 


INSBLK (dsn„BRn [,0/N]) 


KACCPT 


C7 


KACCPT 


KATTCH 


C4 


KATTCH 


KDETCH 


C5 


KDETCH 


KERRCL 


C7 


KERRCL (BRn) 


KERRST 


C7 


KERRST (BRa,BRb) 


KEYOP 


C7 


KEYOP (nn[,BRa, BRb]) 


label = BRn 


A2 


label[(L)] = BRn 


label = constant 


44 


label = constant 


label = Rn 


8L 


label [(L)] = Rn 


label SL n 


A1 


label [(L)] SL n 


LOAD 


2E 


LOAD (label [,P,A,E] ) 


MMCRT 


CB 


MMCRT (BRa, BRb, BRc) 


MOFF 


1A 


MOFF(Ra, Rb[,d, L]) 


MVC 


AC 


MVC (BRa, BRb, L) 


MVCR 


AC 


MVCR (BRa, BRb, L) 


MVCV 


AC 


MVCV (BRa, BRb, L) 


MVER 


19 


MVER (Ra, Rb [,d,L] ) 


NOP 


00 


NOP 


OPEN 


22 


OPEN (dsn [„BRn] ) 


POSN 


26 


POSN (dsn, BOE/CURR/LAST/EOD [,0/N] ) 


READ 


20 


READ (dsn [,fmt, BRn/Rn/-/0/+,O/N] ) 


READMG 


C7 


READMG (BRa, BRb) 


REBF 


21 


REBF (BRn,fmt) 


REPFLD 


C3 


REPFLD 


RESCAL 


CD 


RESCAL (BRn, label) 


RESMXT 


CD 


RESMXT [(BRn)] 


RESUME 


CD 


RESUME [(B)] 


RETEXT 


OC 


RETEXT [(BRn)] 


RETURN 


OC 


RETURN [(BRn)] 


RL 


A1 


BRn [(L)] RLn 


Rn = 


14 


Rn = Rn/n 


Rn<=> 


13 


Ra <=> Rb 


Rn- 


11 


Ra= Rb-n/RC 


Rn + 


10 


Ra = Rb + n/Rc 


Rn* 


18 


Ra = Rb * n/Rc 


Rn/ 


17 


Ra = Rb / n/Rc 


Rn(32) * 


15 


Ra(32) = Rb * n/Rc 


Rn(32) / 


12 


Ra = Rb(32) / Re 


Rn = BRn 


A6 


Rn = BRn 


Rn = d(1,BRn) 


7L 


Rn= [d] ([L],BRn) 


Rn = label 


8L 


Rn = label [(L)] 
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l)UUI bC 


Mnemonic 


Code 


Format 


Rn = nn 


46 


Rn = +nn 


Rn = -nn 


47 


Rn = -nn 


RR 


A1 


BRn [(L)] RRn 


RSTMG 


C7 


RSTMG 


RTIMER 


C7 


RTIMER (BRn) 


RXORW 


43 


RXORW (constant, BRn, constant) 


SEARCH 


24 


SEARCH (dsn, BRn, B/F/R/L) 


SETOFF 


B3 


SETOFF ([d],BRn,nn) 


SETON 


B1 


SETON Ud],BRn,nn) 


SKIPWHILE 


AO 


SKIP WHILE BRa LE BRb [STEP nn 


SL (binary) 


A1 


BRn [(L)] SLn 


SL (decimal) 


1C 


Ra = RbSLn 


SLS 


1D 


Ra = Rb SLS n 


SOFF 


41 


SOFF (la [, lb, lc]) 


SON 


40 


SON (la [, lb, lc]) 


SR (binary) 


A1 


BRn [(L)] SRn 


SR (blank register) 


16 


Rn = 1 SR 1 


SR (decimal) 


16 


Ra= RbSR n/Rc 


SRAT 


2B 


SRAT (dsn, BRn) 


SRR 


1F 


Ra= RbSRR n 


SRS 


1E 


Ra - Rb SRS n 


SYSLCK 


2C 


SYSLCK 


SYSUNL 


2D 


SYSUNL [(*)] 


TBBS 


55 


BRn = TBBS (label, Rn) 


TBDL 


57 


TBDL (label, BRn) 


TBFH 


50 


BRn = TBFH (label, Rn [,N]) 


TBFL 


54 


BRn = TBFL (label, Rn [,N]) 


TBFX 


53 


BRn = TBFX (label, Rn [,N] ) 


TBIN 


56 


TBIN (label, BRn) = Rn 


TBRD 


52 


Rn = TBRD (label, BRn) 


TBRL 


52 


Rn = TBRL (label, BRn) 


TBWE 


51 


TBWE (label, BRn) = Rn 


TBWT 


51 


TBWT (label, BRn) = Rn 


TCLOZ 


3F 


TCLOZ (dsn) 


TCTL 


3F 


TCTL (dsn, X'll' [,0/N, D] ) 


TINIT 


22 


TINIT (dsn) 


TLCK 


58 


TLCK (label) 


TOPEN 


22 


TOPEN (dsn) 


TRANS 


A8 


TRANS (BRa, BRb, L) 


TREAD 


2A 


TREAD (dsn [,fmt,-,0/N,-] ) 


TRT 


A9 


TRT (BRa, BRb, L [, R] ) 


TTERM 


23 


TTERM (dsn) 


TUNLCK 


59 


TUNLCK (label) 


TWAIT 


36 


TWAIT (dsn) 


TWRT 


3A 


TWRT (dsn [,fmt,F,0/N,B] ) 


WAIT 


36 


WAIT [(dsn)] 


WFMCRT 


3E 


WFMCRT (BRa [,fmt,BRb,B/ADD] ) 


WRBF 


3C 


WRBF (BRa[,fmt,BRb]> 


WRT 


30 


WRT (dsn[,fmt,BRn/-/0/+,O/N,B] ) 


WRTI 


31 


WRTI (dsn[,fmt„0/N,B]) 


WRTS 


35 


WRTS (dsn [,fmt„0/N,B] ) 


ZONE 


1B 


ZONE (Ra,Rb/nn [,d,L] ) 
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Key 

d is a displacement. 

dsn is the data set number. 

fmt is the label of the edit format. 

L is a length specification (except for the SEARCH instruction, which 

uses Las a keyword). 

n is a single digit decimal value (0-9). 

nn is a numeric value. 

sfmt is the label of the screen format. 

/ separates two or more parameters when only one may be specified. 

Do not include this symbol in the instruction. 

[] Enclose optional parameters. Do not include these symbols in the 

instruction. 
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Appendix B. SCS Control Characters 



The SNA subset support for the printer is accomplished through SCS (standard 
character string) control characters. You code these control characters in the 
printer output data stream. The data stream contains output data for the printer to 
print and control characters that direct the printer to format the data as you specify. 
The format of the data stream is: 

CC Data CC Data CC Data 

where CC is the control characters. 

The following chart describes the general functions provided by the printer control 
characters. A detailed description of each control character follows the chart. 



SCS Control 
Character 


Hex Code 


Function 


Bell 


2F 


Bell; sound bell on printer 


CR 


OD 


Carrier return 


FF 


OC 


Forms feed 


Fmt 


2B... 
2BC1nnhh 
2BC2nnvv 
2BC8nngguu 


Format 

Horizontal (SHF) 
Verical (SVF) 
Graphic error (SGEA) 


IRS 


1E 


Interchange record separator 


LF 


25 


Line feed 


NL 


15 


Next line 


NUL 


00 


No operation 


PP 


34... 

34C0nn 

34C8nn 

34C4nn 

344Cnn 


Print position 

Horizontal absolute 
Horizontal relative 
Vertical absolute 
Vertical relative 
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• Bell 

Function: This control character stops printing, sounds the audible alarm, if 
installed, and turns on the Attention indicator. 

Code: X'2F' 

Results: When the printer microprocessor detects this control character, it: 

1. Allows all preceding data to be printed and all preceding control characters 
to be executed 

2. Turn the Ready indicator off 

3. Turns the Attention indicator on 

4. Sounds the audible alarm, if installed 

5. Stops printing 

6. Stops formatting 

7. Returns an unavailable status to the controller 

• CR (Carrier Return) 

Function: This control character performs a carrier return to the first print position 
on the same line. 

Code: X'OD' 

Results: The horizontal print position logically moves to the first print position on 
the same line. If it already is at the first print position, no operation occurs. 

• FF (Forms Feed) 

Function: This control character moves the paper to the next logical page as speci- 
fied by the Set Vertical Format control character (see Fmt) in this topic. 

Default: 1 logical page = 1 logical line. 

Code: X'OC 

Results: The print position moves to the first logical print line and first logical 
print position of the next logical page. 

• Fmt (Format) 

Function: This control character defines data formatting for a specified length 
(provided in the parameter). 
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Default: Logical line length = 132 character positions; logical page length = 1 line. 
Format of this control character: 



Code Set Type 

X'2B' Start of formatted data stream. 

Must include: SHF, SVF, or SGEA 
(Note) 



Associated 
Parameters 

Length of formatted 
data stream. 



Note: The following chart shows the various set types and their associated 
parameters. 



Set Types Available for Use with the Format (Fmt) Printer Control Character 



Set Type Format Values of Parameters 



Description of Set Type 



SHF (set 

Horizontal 

Format) 



Clnnhh nn = number of bytes in the 
SHF string 

hh = maximum horizontal 
print position (greater than 
or equal to 1 and less than 
or equal to 132). The 
default is 132. 



Sets the maximum print 
position (MPP), which is 
the value of the print line 
length. 



SVF (Set 

Vertical 

Format) 



C2nnvv nn = number of bytes in the 
SVF string. 

vv = maximum number of lines 
on a page greater than or equal 
to 1 and less than or equal to 
255). The default is a page 
length of one line. 



SGEA C8nnggxx nn = number of bytes in the 

(Set SGEA string. See Note. 

Graphic 

Error gg = unprintable character 

Action) option 

01=No stop, no status. 

02=Defaults to 01 . 

03=Stop, hard error status. 

Unit not available 

04= Defaults to 03. 

The default for xx is 01 . 



Sets the maximum print 
line (MPL) on the logical 
page; it overrides the 
physical device logical 
page. 



Sets the way the printer 
will respond when it en- 
counters an unacceptable 
symbol in the data stream. 
Note: nn must be at least 
1 and not greater than 3 
for the SGEA set type. 
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The following charts show the characteristics of the SHF and SVF set types. 
Valid Values for the SHF and SVF Set Types 



Set Type 
Code 



Parameters Results (MPL and MPP) 



Error 



SHF 



(2BC1nnhh 


nn=00 


MPP=132 




nn=01 


MPP=132 




nn=02 






hh=00 


MPP=132 




nn=02 






hh=1-84 


MPP=M2 




nn=02 






hh=85-FF 


MPP=132 




nn=03-FF 


MPP=132 


SVF 






2BC2nnvv 


nn=00 


MPL=1 




nn=01 


MPL=1 



nn=02 
vv=00 

nn=02 
vv=1-FF 



MPL=1 



Invalid SCS parameter 
None 

None 

None 

Invalid SCS parameter 
Invalid SCS parameter 

Invalid SCS parameter 
None 

None 



None 

Invalid SCS parameter 



MPL=1-255 as specified 
nn=03-FF MPL=1 

• IRS (Interchange Record Separator) 

Function: This control character does the same thing that NL does. 
Code: X'1E' 

• LF (Line Feed) 

Function: This control character moves the paper one line without altering the 
print position. 

Code: X'25' 

Results: Moves the paper logically to the same print position on the following line. 
If you use this control character on the last line of a page, it will move the print 
position to the first line of the next page. 
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• NL (New Line) 

Function: This control character moves the paper to the next line. 

Code: X'15' 

Results: The print position moves to the first print position on the next line if it 
is not coded on the last line of the page. If you code this on the last line, it moves 
the paper to the first print position on the first line of the next page. 

• NUL 

Function: No-op 
Code: X'OO' 

Results: No characters are printed and no functions are performed. 

• PP (Print Position) 

Function: This control character moves the logical print position as determined 
by the associated parameters. 

Restrictions: The absolute parameters (see the following explanation) must be 
equal to or less than the page length. If the absolute horizontal parameter is less 
than the current print position, the printer microprocessor treats it as a separate 
line and inserts a CR control character in the printer data stream. If the absolute 
vertical parameter is less than the current line number, the microprocessor treats 
it as a new page. If both are equal, no operation is performed. Relative values 
must indicate a move to but not past the end of the line or page. A value of is 
not valid, and no operation is performed. 

Code and Format: 

X'34' Function Parameter Value Parameter 

(Hex) (Decimal) 

Note 1 Note 2 

The results are determined by the parameters as described in the following notes. 
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Notes: 



PP CC accomplishes for each type. 



Function 


(Hex) 


Absolute 


CO 


horizontal move 




Absolute vertical 


C4 


move 




Relative 


C8 


horizontal move 





Function Parameter Value Parameter 
(Decimal) 



Numeric value of horizontal posi- 
tion (less than or equal to the end 
of the line) 

Numeric value of vertical position 
(less than or equal to the end of 
page) 

Numeric value of horizontal move- 
ment from the present position 
(less than or equal to the end of the 
line). 



Relative vertical 
move 



4C 



Numeric value of vertical movement 
from the present position (less than 
or equal to the end of the page). 



2. The following chart shows the relationships of the parameters. 





Value 


Function 


Parameter (nn) 


Absolute horizontal 


00 


move (X'34C0nn') 






00<nn^132 




nn>max PP 


Absolute vertical 


00 


move (X'34C4nn') 






current PP 




^nn</nax PP 



Results 

No-op; the current print position 
is unchanged; no error. 

The print position becomes the 
value of nn. 

Error; invalid SCS parameter. 

No-op; the current print position 
is unchanged; no error. 

The print position becomes the 
value of nn and remains on the 
same logical page. 



0<nn<current PP 



The print position becomes the 
value of nn and goes to the next 
logical page. 



nn>max PP 



Error; invalid SCS parameter. 
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Function 



Value 
Parameter (nn) 



Results 



Relative horizontal 
move (X'34C8nn # ) 



00 



No-op; the current print position 
is unchanged; no error. 



nn+current 
PP <max PP 



The new print position is equal to 
the current print position plus 
the value of nn. 



nn+current 
PP >max PP 



Error; invalid SCS parameter. 



Relative vertical 
move (X'344Cnn') 



00 



No-op; the current print position 
is unchanged; no error. 



nn+current 
PP <max PP 



The print position becomes the 
value of the current print position 
plus the value of nn. 



nn+current 
PP >max PP 



Error; invalid SCS parameter. 
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Appendix C. Self-Check Computations 



The description of The Self-Check Algorithm under Self-Check in Chapter 2 
outlines general steps for an algorithm. The 5280 self-check function provides 
variations to the general steps with an input translate table, a product table, 
and an output translate table. Variations in the way the input is translated, 
the way the products are added, and the way the output is translated are also 
available. With these variations, the self-check algorithm you describe with the 
.SELFCHK control statement may be summarized with the following steps: 

1 . Determine input value for each foundation position. 

2. Obtain products and sum the products. 

3. Convert the resulting sum. 

4. Determine output for the self-check number or numbers. 

These steps, and the parameters of the .SELFCHK control statement that 
effect each step, are illustrated in Figure C-1. The .SELFCHK parameters 
that describe the self-check register (FLDLEN, DISP) are not included in 
the figure, nor are the parameters that specify the modulus (MOD) or the label 
of the self-check control area (LABEL). The fields in the figure (Field 1 through 
Field 6) represent the positional fields of the CNTL parameter. 

A detailed description of each step, and how it is effected by the .SELFCHK 
parameters, follows the figure. 
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1. Determine input value for each foundation position. 

I 


INTAB 


INTAB 


omitted 


Field 


specified 






I 
6 = \i Field6 = F 
I 


The 


low-order 4 bits of 


I 

All 8 bits of each input The low-order 4 bits 


the EBCDIC for each 


translate table byte are of each input translate 


position are used for the 


used for the value. table byte are used for 


value. 




the value; the high- 








order 4 bits are used as 








a shift ieft count. 

i 






I _ .„ 



2. Obtain products for each input value (the product is expressed as two numbers, the NR [rightmost number] and the NL [leftmost 
number] ), and sum the products. . 

I 1 

PROD 
omitted 
I 



Random wieghts are used 
for a multiply type 
algorithm. 



Calculated weights are used 
for a divide type algorithm. 



Multiply weights times input 
values to find products. 





PROD 




specified 
1 


Field'l =1* 


1 

Field 1 = F 

I 


Product table repeats 


I 
Product table repeats 


every 3 characters. 

! 


every 4 characters. 
I 



Products are found in the 
product table. 



Field 1 = & 

Sum whole number 
products. 

NR = sum 



Sum the units 
digits of products. 



OR is four 



NR 
NL 



sum 




Sum the digits of 
the products. 

NR = rightmost sum 
NL = leftmost sum 



NR is found in the first half of 
the table. 



NL is found in the second half 
of the table. 



3. Convert resulting sum (converted result is expressed as the DR [rightmost digit] and the DL [leftmost digit] ). 
I 



Field 2 = 1* 

I 
Sum NR + NL. 

DR 
DL 



Field 2 = D 



Sum digits of 
NR +NL. 



Field2 = K 

Cross add sum of NL + NR. 



Field 2 = E 
Special 8 and 3. 



= modulus of sum 






DR 


= modulus of sum of 


DR 


= 


DR 


= modulus of sum 




odd-positioned digits 


DL 




DL 


= 


DL 


of NL + NR 
= modulus of sum of 
carry from DR, plus 
sum of remaining digits 





8 modulus NR 
3 modulus NL 



4. Determine the 


output for the self-check number. 


I 










Field 
No cc 


3 =\t 
mplement 








~~ 1 

Field 3 = C 

Convert DR and DL to 
the complement of the 
modulus. 




OUT 
omitt 

i 






! 






rAB 
ed 










OUTTAB 
specified 






Field 5 = b! 

1 

Use DRandDL. 
I 




2 

F 

3R 
most 

F 

DL 

ost 


I 
Field 5 = D 

I 
Use DR only. 
I 


Fieid 

DR + 
Sum 
to se 
numl 


4= 1 




Field' 


1 = 2 


Field 4 = 1 

, I 

Force an 

F zone to DR 

for the 

self-check 

number. 


Field 4 = 

Force an 
zone to 
for right 
number; 
force an 
zone to 
for leftrr 
number. 


I 

Field 4 = 1 

Force an F 
zone to units 
position of DR 
for self-check 
number. 


I 

Field 4 = 2 

I 

Force an F 
zone to units 
position of DR 
for rightmost 
number; force 
an F zone to 
remaining posi- 
tions of DR for 
leftmost number. 


DL = sum 
translates 
f-check 
>er. 


1 

Field 2 = E 

DR + (DL *8) 
= sum. Sum 
translates to 
self-check 
number. 


DR = 
DL = 


rightmost 
number, 
leftmost 
number. 



Figure C-1. Self-Check Computations According to .SELFCHK Parameters 
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1 . Determine input value for each foundation position. 

INTAB 
omitted 



The low-order 4 bits of the 
EBCDIC for each position 
are used for the value. 

If no input translate table is specified, the low order 4 bits of the EBCDIC for each 
foundation position are used for the input value. For example, if the foundation 
is: 

A478B770 

the EBCDIC for the foundation position is: 

High order bits: CFFFCFFF 
Low order bits: 14782770 

The input value for the foundation positions is: 14782770. 

INTAB 
specified 



If an input translate table is specified, the value must be determined from the table. 

An input translate table can provide a different numeric value for each character. 
You must set up and initialize the input translate table with .DC control state- 
ments. The table must be 256 bytes in length. Initialize the table so that the 
numeric value for each character is stored into the table at the displacement 
that corresponds to the hex value of the character. For example, the hex value 
of the character A is C1 ; the numeric value for the character A must be stored 
at displacement X'CV into the input translate table. 

Figure C-2 shows, on the left, the displacement for each of the 5280 keyboard 
characters. The right side of Figure C-2 shows a sample input translate table, 
with numeric values entered for each keyboard character. 
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Displacements 



Sample Table 





1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C D E 


F 







1 




2 




3 




4 


tzi 


















4 




< ( + 


1 


5 


& 


















! 


$ 


* ) ; 


— l 


6 


- / 


















i 


, 


% _ > 


? 


7 


















1 




# 


@ * = 


" 


8 


a 


b 


c 


d 


e 


f 


g 


h 


i 










9 


J 


k 


I 


m 


n 





p 


q 


r 










A 


~ 


s 


t 


u 


V 


w 


X 


y 


z 










B 




C 


l^ 


B 


C 


D 


E 


F 


G 


H 


1 










D 


IZ 


K 


L 


M 


N 





P 


Q 


R 










E 


\ 


S 


T 


U 


V 


W 


X 


Y 


Z 










F 


1 


2 


3 


4 


5 


6 


7 


8 


9 













1 2 


3456789ABCDEF 



1 
2 
3 




4 


11 


12 13 14 15 16 17 


5 


18 


19 20 21 22 23 24 


6 


25 26 


27 28 29 30 31 32 


7 


33 34 35 36 37 38 39 


8 


40 41 


42 43 44 45 46 47 48 


9 


49 50 51 52 53 54 55 56 57 


A 


58 59 60 61 62 63 64 65 66 


B 
C 


67 70 71 


72 73 74 75 76 77 78 


D 


68 79 80 81 82 83 84 85 86 87 


E 


69 89 90 91 92 93 94 95 96 


F 


00 01 02 03 04 05 06 07 08 09 



Figure C-2. Input Translate Table Displacements and Sample Table 



Many bytes in the input translate table are not initialized, such as the bytes 
from displacement hex 00 to hex 3F. The assembler fills any uninitialized 
bytes with hex 00. 





INTAB 

sp T ed 


Field 6 = bi 

All 8 bits of each input 
translate table byte are 
used for the value. 



If an input translate table is specified, and if Field 6 of the CNTL parameter is 
blank, all 8 bits of the input translate table bytes are used for the input value. 
For example, the letter M is at displacement hex D4; the sample table has the 
value 82 at displacement hex D4. Therefore, the input value for the letter M is 82. 



INTAB 
specified 



Field 6= F 



The low-order 4 bits of 
each input translate table 
byte are used for the 
value; the high-order 4 bits 
are used as a shift left 
count. 
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If an input translate table is specified, and field 6 of the CNTL parameter specifies 
F, the low order 4 bits of each input translate table byte are used for the input 
value, and the high order 4 bits are used as a shift left count. In the example above, 
the input translate table byte contained 82; the input value is 2 and the shift left 
count is 8. The foundation position, and all high order positions are shifted to the 
left 8 positions. 

2. Obtain products for each input value, and sum the products. 

PROD 
omitted 



I 1 

Random weights are used Calculated weights are used 

for a multiply type for a divide type algorithm. 

algorithm. 

I 



Multiply weights times input 
values to find products. 

If no product table is specified, products are obtained by multiplying the input 
value by the corresponding weight. The weights are specified with the WGTS 
parameter. Enter a hex 00 in each position that corresponds to a self-check digit 
and to a position that is bypassed. Enter a 1-byte weight for each position that 
corresponds to a foundation position. The weight must be lower in value than the 
modulus. 

For a multiply type algorithm, random weights are used. The following example 
shows how to assign weights for a self-check register assuming a modulus of 9, 
a field length (FLDLEN) of 21 , and two self-check digit positions at the right 
of the register. 

WGTS=X'00000000000000000000000807060504030102030405060708070605040000' 



Bypass Foundation Number Self-Check 

Positions Positions Digit positions 

The input value for the rightmost foundation number position is multiplied by 
hex 03, and so on. 

Divide type algorithms require specific calculated weights. An algorithm that 
involves divide operations can be expressed as follows: 

Divide the foundation by some number and the remainder is the check digit(s). 

These divide type algorithms can be defined with the .SELFCHK control statement 
by determining the correct weights for the equivalent divide operation and using 
the divisor for the modulus. The weights are determined by dividing the desired 
divisor into 1000000000000000 with the remainder of each step the weight for 
the corresponding position of the foundation, starting from the rightmost 
position. 
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For example: 



0142 



etc. 



1000000000000000 

0_ 

10 

7_ 

30 

28 



20 

14 
8 . . . etc. 



Weighting factors for the above example, 
with the self-check digit in the rightmost 
position and the foundation number four 
positions in length, are: 



X'00000000000006020301 0( 

i j i 



Bypass Positions 



^heck Digit 



When using a divide type algorithm, Field 1 and Field 2 of the CNTL parameter 
of the .SELFCHECK control statement must be blank. 

When weights are determined, they are multiplied by the input value of each 
foundation position, and the result is the product. The products are then added, 
and the 5280 establishes two results that are stored internally. The two results 
are referred to as the NR (rightmost number) and the NL (leftmost number). 
These two results provide flexibility for numerous algorithms. When only one 
result is appropriate NL is forced to 0. 

There are three options for adding the calculated products. Field 1 of the CNTL 
parameter specifies how the products are added to produce the NR and NL. 

As part of the process of obtaining the modulus, the 5280 internally converts 
the products and sums of the products to the number base of the modulus. 
That is, if the modulus is 1 1 , the products and sums of products is expressed in 
base 1 1 . Usually, your algorithm is such that the effects of this conversion can 
be ignored. Only if your algorithm deviates from the common algorithm as noted 
in the examples do these effects have to be considered. 

Multiply weights times input 
values to find products. 



Field 1 = \h 

I 

Sum whole number 
products. 

NR = sum 
NL =0 
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If Field 1 is blank, the input value is multiplied by the weight for each foundation 
position, and the whole number products are added. The sum is used for the NR, 
and the NL is forced to 0. 

Example: 



Numeric value i 


of characters 


3 


12 


10 


4 


6 


Weights 




5 


4 


3 


2 


1 


Products 


15 


48 


30 


8 


6 


Summation 




15 


+48 


+30 


+8 


+6 


NR equals 107 














NL equals 















107 



Multiply weights times input 
values to find products. 

Field 1 = U 



Sum the units digits 
of the products. 

NR = sum 
NL =0 

If Field 1 specifies U, the input value is multiplied by the weight for each 
input position, and the units positions of the products are added. This sum is 
used for the NR, and NL is forced to 0. 

Example: 

Numeric value of characters 3 12 10 4 6 

Weights 5 4 3 2 1 

Products 15 48 30 8 6 

I I I I I 

Summation 5+8+0+8+6 = 27 

NR = 27 
NL =0 
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Commonly, if this option is used, the modulus is 10. The following is an example 

WI IIIUUUIUJ I I OIIVJ OUMOIUCI3 UIC « 

the number base of the modulus. 



Example: Assume modulus 11 

Numeric value of characters 
Weights 

Products (base 10) 
Products (base 1 1 ) 

Summation (base 11) 
NR = 28 
NL =0 



3 12 10 4 6 
5 4 3 2 1 

15 48 30 8 6 

14 44 28 8 6 

I I I I I 

4 +4 +8 +8 +6 = 28 base 1 1 



Multiply weights times input 
values to find products. 



Field 1 = D 

I 

Sum the digits of 
the products 
NR = rightmost sum 
NL = leftmost sum 

If Field 1 is D, the input value is multiplied by the weight for each foundation 
position, and the units positions of the products are added. This sum is used for 
the NR. Also, the remaining positions of the products are added; this sum is 
used for the N L. 



Example: 

Numeric value for characters 
Weights 

Products 

Summation 

NR = 27 
NL=8 



3 12 10 4 6 
5 4 3 2 1 



15 48 30 8 6 
5 +8 +0 +8 +6 = 27 



1 +4 +3 



= 8 



Usually the weights are such that the products are less than 100 so the sum of 
NR and NL is equivalent to taking the sum of each digit of the product. For 
the example above: 

NR + NL = 27 + 8-35 

Summing each digit of the products: 

1+5+4+8+3+0+8+6 = 35 
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Commonly, if this option is used the modulus is 10. The following is an example 
if the modulus is 1 1 and considers the effects of expressing the product and 
sums in the base of the modulus. 

Numeric value for characters 3 12 10 4 6 

Weights 5 4 3 2 1 



Products (base 10) 
Products (base 11) 

Summation (base 11) 


15 48 30 
14 44 28 

J4 J+4 J+8 
1 +4 +2 


8 
8 

I 

+8 


6 
6 

I 

+6 


= 28 base 1 1 
= 7 base 1 1 



PROD 
specified 

i ' . 

Field 1 = \t> Field 1 = F 

Product table repeats Product table repeats 

every 3 characters. every 4 characters 

1 , ' 

Products are found in the 
products table. 

NR is found in the first half 
of the table. 

NL is found in the second 
half of the table. 

You can use a product table rather than weights to find the product for each 
foundation position. You must set up and initialize the 128-byte product table 
with .DC control statements. Do not use a TABLE control statement to 
organize the product table. Specify the label of the product table for the 
PROD parameter of the .SELFCHK control statement. For the WGTS parameter, 
enter hex 00 in the self-check number position(s) and in any positions to be 
bypassed. Enter hex 01 in all foundation positions. 

Although you do not organize the table with a .TABLE control statement, you can 
think of the product table as a data table with eight 1 6-byte arguments. The first 
four arguments are used to find the NR, and the second four arguments are used 
to find the NL. If no NL is appropriate, initialize the second four arguments 
with hex 00s. If Field 1 of the CNTL parameter is blank, the product table repeats 
every 3 characters; if Field 1 is F the product table repeats every 4 characters. 

When the 5280 uses the product table to find the product for a foundation 
character, the position of the character in the self-check register determines which 
argument of the product table the 5280 uses. 

When the appropriate argument is determined, the 5280 uses the low-order 4 bits of 
the EBCDIC for the foundation character to determine which byte within the argu- 
ment holds the product to use. 
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The following illustration shows which argument of the product table is used for 
each n osit!on in a self-check re n ister of u n to 32 b v/ tes. On the ri n ht are the 
positions for a product table that repeats every 3 characters (Field 1 = ); on the 
left are the positions for a product table that repeats every 4 characters (Field 1 
= F). 



Register Positions 

04 08 12 16 20 24 28 32 

03 07 11 15 19 23 27 31 
02 06 10 14 18 22 26 30 

01 05 09 13 17 21 25 29 

04 08 12 16 20 24 28 32 

02 07 11 15 19 23 27 31 
02 06 10 14 18 22 26 30 



Product Table 
Positions 

00 through OF 
10 through 1F 
20 through 2F 
30 through 3F 
40 through 4F 
50 through 5F 
60 through 6F 



01 05 09 13 17 21 25 29 70 through 7F 



Register Positions 

02 05 08 11 14 17 20 23 26 29 32 

01 04 07 10 13 16 19 22 25 28 31 
03 06 09 12 15 18 21 24 27 30 

(not used) 

02 05 08 11 14 17 20 23 26 29 32 
01 04 07 10 13 16 19 22 25 28 31 

03 06 09 12 15 18 21 24 27 30 
(not used) 



To find the product for the character in position 26 of the self-check register, 
the 5280 uses argument 3 of the product table (positions hex 20 through 2F) if 
Field 1 = F; it uses argument 1 of the product table (positions 00 through OF) 
if Field 1 is blank. The following example shows how the character in the 26th 
position of the self -check register is translated to the NR, assuming the product 
table repeats every 4 characters (Field 1 = F). 

Example: 



1 2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 16 17 18 19 20 21 22 23 24 25(26)27 28 29 30 31 32 




Register Positions 



01 2 3'4 56789ABCDEF 



04 08 12 16 

03 07 11 15 
02 06 10 14 

01 05 09 13 

04 08 12 16 

02 07 11 15 
02 06 10 14 
01 05 09 13 




20 24 28 32 

19 23 27 

18 22 

17 21 25 29 

20 24 28 32 

19 23 27 31 

18 22 26 30 
17 21 25 29 



1 


2 3 


4 


5 


6 


7 


8 9 


- 


= 


q w e 


r 


t 


y u 


i 





P 


a 


s d f 


g 


h 


j k I 


\ 


' 


2 X 


d 


V 


b 


n 


m , 


/ 


I 


@ # $ 


% 


4 


& * 


( 


) 




+ 


Q W E 


R 


T 


Y U I 


O 


P 


A S 


D 


F 


G 


H 


J K L 




" 


Z X C 


V 


B 


N M 


, 




? 


1 


2 3 4 


5 


6 


7 8 9 





- 


= Q 


w 


e 


r 


t 


y u i 


o 


P 


a s d 


f 


g 


h j 


k 


I 


; 


' 


z x c 


V 


b 


n m , 





The register position determines which product table argument to use. 

For position 26, use the third product table argument. 

The EBCDIC of the character determines which byte in the argument to use. For 
'c' the EBCDIC is hex 83; use the fourth byte (byte 3). 

The NR for the character is 'd', or EBCDIC hex 84. If an NL is used, it is found 
in the fourth byte of the seventh argument: NL = 'w', or EBCDIC hex A6. 
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3. Converting resulting sum. 

The sum of the products (NR and NL) is converted to the base of a modulus, 
according to Field 2 of the CNTL parameter. The units positions of the result 
of this conversion is expressed as the DR (rightmost digit) and the DL (leftmost 
digit) to prevent confusing them with the NR and NL. 

Field 2 = \t> 

Sum'NR + NL. 

DR = modulus of sum 
DL =0 

If Field 2 is blank, the NR and NL are added together, and the sum is converted to 
a base equal to the modulus specified in the MOD parameter. The units positions 
of the result is stored as the DR; only one result is appropriate so the DL is forced 
toO. 

Example: 

The modulus is 10 

From the sum of products NR = 107 

(Numbers in base 10) NL= 



NR + NL= 107 

Modulus is taken on 107; the value of the units position is the result. 

DR = 7 
DL = 

Example: 

The modulus is 11 

From the sum of products NR = 28 base 1 1 

(Numbers in base 11) N L = 7 base 1 1 



NR + NL = 34base 11 

Modulus is taken on 34 base 1 1; the value of the units position is the 
result so: 

DR=4 
DL = 

FielcT2 = 



Sum digits of 
NR + NL. 

DR = modulus of sum 
DL =0 
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If Field 1 = D, the NR and NL are added together, then each digit of the sum is 
added; this new sum is converted to a base equal to the modulus specified in the 
MOD parameter. The units positions of the result is stored as the DR; only one 
result is appropriate so the DL is forced to 0. 

Example: 

The modulus is 10 

From the sum of products NR = 107 

(Numbers in base 10) NL= 



NR+NL= 107 

Sum of each digit 1 +0+7 = 8 

Modulus is taken on 8; value of units position is the result so: 

DR=8 
DL = 

Commonly, if this option is used the modulus is 10. The following is an example if 
the modulus is 7 and take into account the effects of expressing the values to the 
base of the modulus. 

Example: 

Modulus is 7 

From the sum of products NR = 26base7 

(Numbers in base 7) NL=16base7 



NR + NL = 45base7 

4+5= 12 base 7 

Modulus is taken on 12 base 7; value of units position is the result so: 

DR = 2 
DL = 

Field 2= K 

Cross add sum of NL + NR. 

DR = modulus of sum of odd- 
positioned digits of 
NL + NR 

DL = modulus of sum of carry 
from DR, plus sum of 
remaining digits. 
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If Field 2 = K, the NR and NL are added together, then each odd-positioned digit 
of this sum is added; this new sum is converted to a base equal to the modulus 
specified in the MOD parameter, and the units position of this converted result is 
stored as the DR. Each even-positioned digit of the sum is added, and the remaining 
positions from the DR are added; this new sum is converted to a base equal to the 
modulus specified in the MOD parameter, and the units position of this converted 
result is stored as the DL. 

Example: 



Modulus is 10. 

From the sum of products 



Sum digits for first 
modulus (odd position). 

First modulus is taken on 13. 
Result is units position value, 
so: 

DR=3 

Remainder of first modulus 
equals 1. 

Sum digits for second modulus. 

Add remainder for second modulus. 

Second modulus is taken on 1 , so: 

DL = 6 



NR = 1746 
NL= 

NR+ NL = 1746 

111 

7+6 



= 13 



1+4 =5 



1+5 = 6 



Commonly, if this option is used, the modulus is 10. If modulus 10 is not used, all 
the numbers and summations would be in the base of the modulus. 

Field 2 = E 



Special 8 and 3. 

DR = 8 modulus NR 
DL =3 modulus NL 

If Field 2 = E, the NR and NL are treated separately. The NR is converted to 
base 8, and the units position of this converted result is stored as the DR. The NL 
is converted to base 3, and the units position of this converted result is stored as 
the DL. This option should be used only if you use an output translate table. 
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C-_--, m «!a- 



rnplt 



tAaiilwic 



Modulus is 10. 

From the sum of products 



so result is: 
DR=3 



NR = 27 

Modulus 8 taken on 27 

27 base 10 = 33 base 8 



From sum of products 



NL = 8 

Modulus 3 taken on 8 

8 base 10 = 22 base 3 



so result is: 



DL = 2 



4. Determine the output for the self-check number. 

The output for the self-check number is determined by Field 3, which specifies 
whether to complement the DR and DL, by the OUTTAB parameter, which 
specifies whether an output translate table is used, and by Field 4, which specifies 
whether the self-check number is one or two digits. If the output translate 
table is omitted, Field 5 is also used to determine whether the DR and DL, or only 
the DR is used. 



Field 3 = \t> 

No complement 



Field 3 = C 

Convert DR and DL to the 
complement of the modulus. 



If Field 3 is blank, no complement is taken. If Field 3 is C, the DR and DL are taken 
to the complement of the modulus. This has the effect of subtracting the modulus 
value from the DR and DL value. 



Example: 




Modulus is 11. 


DR=7 




DL = 


Complement DR to 11. 


11 -7 = 4 


DR = 4 




Complement DL to 11. 


11 -0 = 


DL = 


The complement of will always be 0, 



Note: If you specify E for Field 2 (special 8 and 3), do not specify C for Field 3 if 
your modulus is less than 8. 
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OUTTAB 
omitted 



Field 5 = Field 5= D 

Use DRand DL 



, 1 

Fielcl 4=1 Field 4 = 2 

Force an F Force an F 

zone to DR for zone to DR for 

the self-check the rightmost 

number. number; force 

an F zone to 
DL for left- 
most number. 

If no output translate table is specified, and Field 5 of the CNTL parameter is 
blank, both the DR and DL are used to determine the self-check number output. 

If Field 4 = 1, only one self-check digit is output for the self-check number. An 
F zone is forced to the hexadecimal representation of the DR, and this is used 
for the self-check number. 

Example: 

DR = 7 

Hexadecimal representation of DR 07 

Force an F zone to the DR F7 

The self-check number is 7, 

which is displayed and printed as 7 

If Field 4 = 2, two digits are output for the self-check number. An F zone is 
forced to the hexadecimal representation of the DR, and this is used for the 
rightmost digit; an F zone is forced to the hexadecimal representation of the 
DL, and this is used for the leftmost digit. 

Example: 

DR = 7 Hexadecimal 07 

DL = 3 Hexadecimal 03 
Force an F zone 

totheDRandDL F7F3 

The self-check number is F7F3, 
which is displayed and printed as 73. 

Usually, if this option is used, the DR and DL have a value of less than 10. 



Self-Check Computations 343 



OUTTAB 

remittor! 

""' T" 

I I 

Field 5 = ft Field 5 = D 



Use DR only. 



Field 4 = 1 Field 4 = 2 



Force an F Force an F zone 

zone to the to the units posi- 

units position tion of DR for the 
of DR for the rightmost number; 
self-check force an F zone 

number. to the remaining 

positions of DR 
for the leftmost 
number. 

If Field 5 = D, only the DR is used to determine the self-check number output. 

If Field 4=1, only one digit is output for the self-check number. An F zone 

is forced to the units position of the DR, and this is used for the self-check number. 

Example: 

DR = 10 

Force an F zone to the units position. FO 

The self-check number is FO, which is 
displayed and printed as 0. 

If Field 4 = 2, two digits are output for the self-check number. An F zone is forced 
to the units position of the DR, and this is used for the rightmost digit; an F zone 
is forced to the remaining positions, and this is used for the leftmost digit. 

Example: 

DR = 123 

Force an F zone to the units position F3 

Force an F zone to the remaining 

positions FC (12 is C in hex) 

The self-check number is F3FC, which is 
displayed as 3 and printed as 3. 

This option is usually used if: 

• The modulus is greater than 10, there are 2 check digits, and the DL is 0. 

• The modulus is 10 or less, and there is only one check digit. 
For this option, DR usually has a maximum value of less than 100. 
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OUTTAB 
specified 



Field 4 = 1 Field 4 = 2 



1 

Field 2 = E 

DR + DL = sum. DR + (DL * 8) = 

Sum translates sum. Sum translates 

to self-check to self-check number, 
number. 

The output translate table is usually used if the modulus is greater than 10 and 
there is a single self-check digit. The 5280 uses the value of the DR or the DR and 
the DL to determine the byte of the output translate table that contains the 
character to insert into the self-check register. 

You must set up and initialize the output translate table with .DC control 
statements. The number of translation characters in the table need be only as 
great as the modulus. 

If Field 4 of the CNTL parameter is 1, the DR and DL values are added, and the 
sum is used to find the character in the translate table. 

If Field 4 = 1 and Field 2 = E, the DL value is multiplied by 8 and the product 
is added to the DR value. This sum is used to find the character in the translate 
table. 

OUTTAB 
specified 



Field 4 = 1 Field 4 = 2 



DR = rightmost number. 
DL = leftmost number. 

If Field 4 = 2, the value of the DR is used to find the character in the translate 
table for the rightmost digit, and the value of the DL is used to find the character 
in the translate table for the leftmost digit. 
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Appendix D. Keyboard Codes and EBCDIC Charts 



Second 

Hex 1 

Digit o 



EBCDIC CHARTS FOR PRINTABLE CHARACTERS 



First 

Hex 

Digit — -0 i 2 3 4 !5 6 7 8 9 A B 
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— 








o 


n 


<t 


{ 


} 


\ 







& 


/ 


£ 


a 


j 


... 
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A 


J 




1 


a 


e 


A 


E 


b 


k 


s 


¥ 


B 


K 


5 


9 

Ah 


a 


e 


A 


E 


c 


I 


t 


Pr 


C 


L 


T 


3 


a 


& 
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E 


d 
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First 

Hex 

Second Digit -0 123456789ABCD 

Hex 1 

Digit t 

& 



3 

4 

5 

6 

7 

8 

9 

A ft ! 

B . $ 

C < * 

I) ( ) 

E + 

F I 









< 


> 


\ 





a 


J 


- 


A 


J 




i 


b 


k 


s 


B 


K 


S 


2 


c 


L 


t 


C 


L 


T 


3 


d 


m 


u 


D 


M 


U 


4 


e 


n 


V 


E 


N 


V 


5 


f 


o 


w 


F 





U 


6 


g 


P 


X 


G 


P 


X 


7 


h 


■I 


y 


H 


Q 


Y 


8 


i 


r 


z 


I 


R 


Z 


9 



IBM 5256 STANDARD CHARACTER SET 
LANGUAGE : US. AND- _£ANAPA 
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KEYBOARD FUNCTIONS: EBCDIC CODES AND BIT NUMBERS 

The EBCDIC is the code that is placed into byte hex A7 of the keyboard/display 
IOB. The bit number is the number used for the TRAP parameter of the .KBCRT 
control statement. 



EBCDIC 

X'OO' 

x'or 



Bit 
Number 



Key Description 

— Invalid scan code generated from trans- 

late table or hardware. An error code 
is presented to the operator. 

CMD Command key prefix to select command 

function. 



X'02' 
X'03' 



CMD Shifted command key. 

— Keyboard overrun; keyboard has lost 

two keystrokes due to hardware key- 
stroke buffer overrun. 



X'04' 



Invalid keystroke; the code is generated 
directly from the scan code translate 
table or the World Trade translate table. 



X'05' 



RESET Reset function; reset error condition, or 
reset Hex key command, or insert 
function. 



X'06' 


5 


INS 


X'07' 


6 


Del 


X'08' 


7 


Alpha 


X'09' 


8 


4 



X'OA' 



Insert function; initiate character insert. 

Delete function; initiate character delete. 

Alpha shift, with the Alpha key pressed. 

Numeric shift, with the ^ (Shift) key or 
or Num Num key pressed; uses the lower half of 
the scan code translate table. 

W Shift lock, with the W (Shift Lock) key 

pressed; locks shift to use upper half of 
scan code translate table. 



X'OB' 



10 Num Katakana numeric shift, with the 

Shift Num Shift key pressed; uses upper 

half of scan code translate table. 



X'OC 



1 1 Alpha Katakana Alphabetic shift, with the 

Shift Alpha shift key pressed; uses lower 

half of scan code translate table. 



X'OD' 



12 Kata Katakana shift, with the Kata Shift 

Shift key pressed; uses lower half of 

World Trade translate table. 
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EBCDIC Number Key Description 

X'OE' 13 Sym Katakana upper shift; with Sym 

Shift Shift key pressed; uses upper half 

of the World Trade translate table. 

X'OF' 14 Lock Katakana shift lock; with the Lock key 

pressed; locks the shift to Kata Shift 
or to Katakana Alpha shift. 

X'12' 17 t Move cursor up; valid only for format 

level zero. 

X'13' 18 i Move cursor down; valid only for 

format level zero. 

X'14' 19 „ I Moves cursor to the first position on 

the next line; valid only for format 
level zero. 

Field exit function. 



Field exit minus function. 

Skip function. 

Alpha shift, with the Alpha key 
released. 

Numeric shift, with the^(Shift) key 
or Num key released. 

Shift lock, with the W (Shift Lock) 
key released. 

Katakana numeric shift, with the Num 
Shift key released. 

Katakana alphabetic shift, with the 
Alpha Shift key released. 

Katakana shift, with the 
Kata Shift key released. 

Katakana upper shift, with the 
Sym Shift key released. 

X'1F' 30 Lock Katakana shift lock, with the 

Lock key released. 

X'20' 31 Dup Duplicate function. 

X'21' 32 -* Field advance function. 



X'15' 


20 


Field 
Exit, 
Field+ 


X'16' 


21 


Field - 


X'17' 


22 


Skip 


X'18' 


23 


Alpha 


X'19' 


24 


4 

or Nurr 


X'1A' 


25 


t 


X'1B' 


26 


Num 
Shift 


X'1C 


27 


Alpha 
Shift 


X'1D' 


28 


Kata 
Shift 


X'1E' 


29 


Sym 
Shift 
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Bit 




EBCDIC 


Number 


Key 


X'22' 


33 


N- 


X'23' 


34 


Corr 


X'24' 


35 


Enter/ 
Rec Adv 


X'25' 


36 


Home 


X'26' 


37 


-> 


X'27' 


38 


— 


X'28' 


39 


Hex 

command 
function 
key 



Description 

Field backspace function. 
Field correct function. 
Record advance function 

Record backspace function. 
Character advance function. 
Character backspace function. 
Hex command function key. 
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X'29' 



X'2A' 



No key 
is asso- 
ciated 
with this 
function. 

No key 
is asso- 
ciated 
with this 
function. 



Keystroke error, detected and 
normally handled by the keyboard/ 
display. 

Clear screen function; blanks ail 
positions on the screen except 
the status line. 



Clear status line function; blanks 
all positions on the status line. 



X'2B' 



No key Keystroke with this EBCDIC is 

is asso- ignored. 

ciated 

with this 

function. 



X'2C 
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Field-/dash combination key. 



Functions from 2D-3F are handled by your program, with external status 
condition 1 subroutines. 



X'2D-32' 



X'33' 



Sel 
Fmt 



Not assigned; you may assign these 
codes to special functions for your 
applications. 

Select format function. 
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Bit 






bBUUiC 


Number 


Key 


prescription 


X'34' 




Dup 
Skip 


Switches the auto dup/skip flag. 


X'35' 




Auto 
Enter 


Switches the auto enter flag. 



X'36' Cncl Cancel function; defined and processed 

by your program. 

X'37' Page Page forward function; to read the 

Fwd next record without writing out the 

current record, processed by your 
program. 

X'38' Next Next format function; to allow the 

Fmt operator to exit a repetitive format, 

processed by your program. 

X'39' Prnt Print function; to initiate output 

from the printer. 

X'3A' Not used. 

X'3B' Erase Erase input function. 

Inpt 

X'3C Corr Record correct function; initiated by 

the shifted Corr key. 

X'3D' Sys System request function. 

Req 

X'3E' Attn Attention function. 

X'3F' Help Help function; to request a help message. 



352 



Appendix E. Error Messages 



ASSEMBLER ERRORS AND MESSAGES 

Miscellaneous Errors 

0002 Symbol table full 

0003 Cross-reference table full 

Sequence or Location Assignment Errors 

0004 Location counter inappropriate for register 

0005 Table statements not contiguous 

0006 Invalid sequence of .FMT or .SFMT 

0007 Statement must precede first instruction in SUB 

0009 Invalid parameter combination 

0010 One or more required parameters omitted 

001 1 Label is multiply defined 

0012 Invalid combination of labels in expression 

0013 Length of LEVL=2 exceeds length of LEVL=1 
0017 Unable to open included data set 

0022 Branch target out of range 

0023 Statement not allowed in SUB assembly 

0024 .START must be first statement in program 

0025 Control statement sequence error 

0026 .KBCRT statement required in program 

Invalid Operand in Instruction 

0032 Instruction description not in table 

0033 Unbalanced parentheses 

0034 Must not use same register twice 

0035 Extra operands in instruction 

0036 Option or modifier not recognized 

0037 Third operand is not Rn, +, 0, or - 

0038 Invalid data set number 
0039 
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Invalid Parameter in Control Statement 

0040 Format parameter not valid 

0041 Invalid shift count 

0042 Displacement not multiple of 8 

0043 Displacement plus length too large 

0044 Pad length exceeds 64 

0045 MAXM * (ARGL + BYPASS) > table length 

0046 MAXM x (ARGL + BYPASS) < table length 

0047 PB1 and PB2 must be on a 128-byte boundary 

0048 SCS conversion not allowed in keyed file 

0049 SCS conversion not specified, assumed 

0050 xxxxxxxx is an undefined symbol 

0051 Must not use both ELAB and ETAB 

0052 Either ELAB or ETAB must be used 



Screen Format and Edit Format Messages 

0070 Unfinished BYPASS in series 

0071 BYPASS not permitted within a BYPASS 

0072 Must not have RG alone 

0074 Cursor position exceeds screen size 

0075 Must not have NORMAL and another attribute 

0076 BYPASS end with no BYPASS initiated 

0077 MD and MS must be identical 

0078 No .FMTEND on previous edit format 

0079 No .SFMTEND on previous screen format 

0080 No start statement for this series 



Messages That Reference a Column Number 

1001 Invalid delimiter at column ## 

1002 Unrecognized keyword left of column ## 

1 003 Sublist too long, truncated at column ## 

1004 More than 8 operands, truncated at column ## 

1005 Unbalanced parentheses 

1006 Duplicate keyword left of column ## 



Messages That Reference an Operand Number 

2001 Code conversion error in operand ## 

2002 Invalid value (too large, etc) in operand # 

2003 Operand ## is wrong type 

2004 Operand ## is wrong length 

2005 Operand ## must not be omitted 
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Messages That Contain a Variable Keyword 

3001 xxxxxxxx has a conversion error 

3002 xxxxxxxx is invalid (too large, etc) 

3003 xxxxxxxx is the wrong data type 

3004 xxxxxxxx is the wrong length 

3005 xxxxxxxx must not be omitted 



Control Statement Error 

4001 Too many prompts, constants or MPUPs 

4002 Too many screen format strings 

4003 Too many edit format strings 

4004 Too many table definitions 

4005 Too many indicators 

5002 TYPE is not STOR/BIN/DEC/PRMT/MDUP 

5003 PRMT is not SP/FP/CP 

5004 FLDF(1 ) is not A/N/W/X/Y/Z/D/H/S/F 

5005 PIC(2) is not A/N/W/X/Y/Z/D/H 

5006 CI (2) is not ON/OFF 

5007 Invalid combination of EDIT specifications 

501 1 TYPE(1) is not SR/SW/SU/KR/KRN/KU/KUN/I 

5012 OPTION is not MAIN/SUB 

5013 CNTR is not K/B/C/F 

5015 TYPE(1 ) is not COM/SR/SW/CN 

5016 TYPE (2) is not CB/CM/BT 

5017 CAM is not BSC/SNA 

5018 RECFM is not F/FB/V/VB 

5020 MOD is not S10 or S11 or numeric 

5027 Either DEV or DEV ID must be used 



CONVERSION PROGRAM ERRORS 
Error Cause and Recovery 

9400 You have entered invalid data for a data set name, a device address, or 

an option. Respecify the invalid entry. 
9900 You have issued an EOJ command. Terminate the current prompt. 
9998 An unexpected external status condition has occurred. Terminate the 

current prompt. 
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Appendix F. Sample Program 



Your assembler diskette contains two sample source programs, labeled SYSASMP 
and SYSACLP. SYSACLP is an ACL program that can be converted to 5280 
assembler language by using the ACL to 5280 assembler language conversion aid. 
SYSACLP was originally published as a sample program in A Programmer's 
Introduction to the Application Control Language, GA2 1-9 195-1. SYSASMP 
is a source program that performs the same job as the original ACL program but 
has been written in 5280 assembler language to make better use of the language. 
The assembler listing for SYSASMP is illustrated in this appendix. You may 
assemble the sample program with any of the options available, but to obtain 
a listing like the one in this appendix, select the following assembler listing options: 

Cross reference: Yes Included lines: Yes 

Full data print: No Errors only: No 

Literal spacing: No Page size: 84 

Following the listing is an example of the output from the sample program. 
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ASSEMBLER 01. 



ORDER ENTRT 



e program, 
source code: 



NAME - Or 
PURPOSE - 
FUNCTION 



OPERATION 


- The user i 




1. Data 




3. Heads 




4. Detai 




5. Add it 




Press the S 




Press the H 




Most other 




ATTENTION, 




usual signi 




keys are ig 


OUTPUT - 


eader record 



i data 
?tai I 



ids. 



ELECT FORMAT key to enter a new header record. 
OME key to backspace into previous records, 
function keys (RECORD ADVANCE, SYSTEM REQUEST, 
CURSOR LEFT and RIGHT, CMD EOJ) have their 
ficance. Other function keys and the comand 



RESTRICTIONS 



25 - 29 luantity (limit che 


k) 


30 - 36 unit price 




37 - 49 amount =- -luantity « 


price 


80 character D - i nd 


cates detai I 


50 -128 not used, blank 




inted log (optional): 




The header data and the firs 


detail record are formatted 


on the sane line. Additional 


detail records for the same 


header are placed below it u 


thout repeating header data. 


S - Basic common function ar 


■a (SYSDPRT2) is reiuired. 



utput dataset 



00A6 
OOBE 
0140 
0001 



0114 
0000 
0115 



.START PNAM='SAMPLE2' ENTRY=START MCHK=CFPGMCHK , 

.KBCRT CRBA=IOBUF ETAB=ERRKB; 

.DC LABEL=SCNCD LEVL=2 DISP=X'A6'; SCAN CODE 8. CONVERTED EBCDIC 

.DC LABEL=MODESU LEVL-2 DISP=X'BE'; KB/CRT MODE SWITCH 

. DCLIND LABEL==EODSU , PRNTSW , QUANSU ; 

.EQUATE NUMB=(1, TRANS) , (2.PRNT), .DATASET NUMBERS 

« THE FOLLOWING EQUATES ARE OPTIONAL, BUT WILL PUT ENTRIES IN THE 

» CROSS REFERENCE LISTING FOR SYSTEM REGISTERS AND INDICATORS. 

.EQUATE REG- (BRIO, BRIO) , (BR18.BR18) , (BR19.BR19) , (BR22.BR22) ; 

.EQUATE IND=(I115,I115), < 1 1 18 , 1 1 18) , ( 1125 , 1 125) , ( 1 158, 1158); 

. XTRN LABEL=CFPGMCHK , CFGIOERR , CFPERATT , CFL0AD01 , CFERCDSM , 

CFATFBGD.CFDEVCHK; 
.DC LABEL=CFWKFTR TYPE=BIN INIT' -ADDR ( CFSAVE 
.DC LABEL=CFPARM1 TYPE=BIN, 
.DC LABEL=CFPARM2 TYPE^BIN; 
.DCLBR LABEL-WKBRi, 

.DC LABEL-RUCOL TYPE=BIN INIT=:X • 0435 ' , 
.DC LABEL = BUF(? TYPE=BIN INIT=-ADDR < I0BUF > 



C.F. WORK AREA PTR 
C.F. PARAMETER REG 
C.F. FARAMETER REG 
BINARY WORK REGISTERS 
ROW «. COL FOR CRTMM 
I/O BUFFER PTR 



5280 ASSEMBLER 01.00 



ADDR 


OBJECT CODE 


014C 


08E4 


014E 


0150 


0150 


8000 


0152 


0006 


0154 


0022 


0156 


0029 


0158 


3701 


0160 




0190 


F0FOFOF0F0F0FOFO 


01A0 


F9F1F1F1FF 


01A5 


F9F9F9F8FF 



- ORDER ENTRY SAMPLE PROGRAM, 



SOURCE CODE 



74 .DC LABEL = TXTI? TYPE = BIN I NI T'-ADDRI SHPCD ) 

75 .DC LABEL=PRCNTLB TYPE = BIN IN [ T=ADDR < PKCN I C 



.DC l.ABEL=PRCNTL 
.DC LABEL = I\6 
.DC LABEL=K22 
.DC LABEL-K29 
.DC LABEL = K37()1 
.DCLDR LABEL=UKDR1 



TYPE>BIN :[NIT = X'8000' 
TYPE=BIN INIT=6, 
TYPE='BIN INIT=X'22' , 
TYPE=BIN INIT=X'29' . 
CYPE==BIN INIT=X'3701' 
,RQUAN,RPRICE, 



.DC LABEL-=LIMIT TYPE-DEC INIT-1000, 



83 .DC LABEL=MSG9111 INIT=X'F9F1 



IF IFF' 



84 .DC LABEL-MSG9998 INIT'-X ' F9F9F9F8FF 



PTR FOR CRTMM 

P1R TO PRINT CONTROL 

PRINTER SPACE CONTROL 



CODE FOR EOD 
DECIMAL WORK REGISTERS 
QUANTI1Y I IMIT CHECK 
SELF CHECK INCORECT 
UNEXPECTED KB EXT STATUS 



» TRANSACTION DATA SET DEFINITION 

.DATASET DSN=TRANS DEVID=D1 RECL 12B BSIZ=0 TYPE--SU NAME^DSNAME 
LBUF=IOBUF PB1=BUFI1 ELAB=DSKERR. 



0288 
0290 
0300 
0700 
0800 
0840 
08B8 



0000000000000000 
000000000840FFOO 
OD50800000000000 



« PRINTER DEFINITION 

.DATASET DSN=PRNT DEV=X'BOOO' RECL=120 BS 
PGSIZ-66 LINSZ'120 LSTLN-50 
LBUF=PRBUF PB1==BUFF2 ELAp-=GIOER 
.DC LABEL=BUFF1 LEN=-1024 BDY'128, 
.DC LABEL=BUFF2 LEN=256 BDY=128. 
.DC LABEL=CFSAVE LEN=64 , 
.DC LABEL=PRBUF LEN=120, 
.DC LABEL=DSNAME LEN=10, 



TYPE=SU,SCS 



08C2 
08C2 
08CA 
0BD2 
081)8 
OBDA 
08E4 
0BD2 
08DA 
08DF 
08E6 
0911 



106 
107 
108 
109 
110 
111 
112 
113 



1. 


1G7CAL 


■ UFiTR 


1 iiT- i> 1.: 


TFT n i. 


TrYTTTTfiPD 


I)( 


I ABl L 


HlFUF 


1 l.N I.U 






Dl, 


[ t VL = J 


1 


J 1 ■ 1 PANS . " 


XilOOO' , 


D(. 


Ltvi •■:■ 


IAHEL 


i UVIM 


LI M H 


MSP -0. 


Dl: 


LFVL -2 


1 AHLL 


IIKDNU 


l.LN -l. 




DC 


1 evi ■-:• 


1 ABEL 


BAIL 


U N 6. 




DC 


LEVL - 2 


1 ABEL 


MANNO 


LEN .'. 




Dl 


LEVI-: 


I AREl 


PUS ID 


LIN IV 




DC 


LEVL --2 


LABEL 


SHPCD 


LIN. ,• . 




DC 


IEVL=2 


I ABkl 


1 TMNO 


LIN H 


D ISP" 16. 


DC 


LEVL=2 


IAHEL 


QUAN 


LtNS. 




DC 


LEVI. 2 


I ABEL 


PRICE 


LIN- ,-. 




DC 


LEVL--2 


LA BE I 


AMT 


11 M-13 




Di: 


LEVI = 2 


LABEL 


I NTL 


I I N V 


D1SF--79, 



QUANTITY 

PRICE 

QUAN « PRICE 

CONTROL CHAR 



0201020102010201 



115 .SULFCHK M0D-S10, 



STANDARD SELF CHEC 



096E 
0976 
097E 
0986 
0986 
098D 
0994 
099B 
09A2 



0986000506000005 
0986000500060005 
OEOC000401000004 

E3D9E4C3D24040 
D9C1C9D3404040 
D7D6E2E3404040 
C1C9D940404040 
C3D6E4D5E3C5D9 



117 « IABLL UF If XT H)R SHIP CUBE 

118 . T,>BLE LABEL- XHIPIXT DLLBl -SHIPCODE ARGL=7 

119 .T-1BI.E LABEL- SHIPID DLL Bl - SHIPCODE ARGL-1 

120 .T.1BLE LABEL^RGRIN Dl L BL BUFAD ENTRIES*". 

121 .DC LABFL = SH)PCODI: LEN 3"i . 

122 .DC LEVI ^2 LIN=/ INIT--TRULK 

123 .D-: LEVL-2 I I N •- .' [Nil RAIl 

124 .Dv LEVI =2 LIN-,' INII-'FllSI 

125 .D ; I EVL -2 I I N- 1 INI T AIR 

126 .D-' LEVI -2 UN- 7 I NI T" ■ I'OIIN II R 



<T FOR SHIP CODE 



09A9 


FF0I-9A 


09AC 


070199 


09AF 


0F41B50702B8 


09B5 


0F4196O7038C 


09BEI 


0F41820187 


09C0 


0F41B707048D 


09C6 


0F418202034084 


09CD 


0F83 



1211 » VCREEN EnKMATS CR DATASl 1 

129 .St MIST LABL1 IRI-ANS LNTl IS 

130 .SH1TPM1 PRMI --SI . I I ILL , 

131 .SIMTPMI TRMI SP.IRANSI CST S 

132 .SI-MTPMT PRMI SI , IhANS.' LSI.- 

133 .SI MTFLD I LDI =A,H CIS 

134 .SI-MTPMT PKMI SP, IFANS < CSPS 
lib SI-MTFLD FLDI^N,4.l-L I'STS- 
136 .SEMTEND, 

138 .SFMTST LABEL--PRPRINT CNTLCS 



SAC1 ION TILE 



PROMPT FOR PRINTER ADDRESS 



5280 ASSEMBLER 01.00 

addr object CODE 



ORDER ENTRY SAMPLE PROGRAM ; 



SOURCE CODE 



09D? o/oiyv 

09D5 01 41B'>O/059B 

09DB 0F21HB0I' 41820 '0.3 

09F.', Of 41 ai o/ot,ve. 

OvLB OH 8.» 



09LD 


i :?i:iDii)/uji;'.40D6 


OAO I 


C5D'.l 


c>D94ot- jch 


OAOr 


1 5401V 


i)61)3D3D&E6 


onto 


C4L1I. 


i.i 40t;.'i.'ji. J 


0A4I) 


i 4i:',i ■ 


>:vc3C54oci 


0A5B 


CMl'it 


C5D940D/D? 


00/ f 


D3L5L 


1 5C540C2D3 



.SFMIPMT PKMI SP, I ] n.E . 

.SFMTPMI F-kMl SF.FklNU CSPS=NL. 

.SFMIFLD I I t>r N. 4,t>[, CSPS-*3 WH-ll', 

.SFMIFMI F-kMI SP,pklNT2 CSPX-NI. 

.SFMTEND. 

.DC. TYF-E-lkMI LABEL' TITLE IN J t .SAMPLE ORDER ENTRY PROGRAM', 

.DC IYPE ^FkMF I ABEI " TRANSi 

TNIT-'FNTlk Fitl FIILI0U1NU INFORMATION FOR TRANSACTION DATA S 

• DC. FYPE PkMI I ABI-.T - FkANS? INIP 'DATA SET NAME', 

.DC. IYPF -F-RM! I ADLI rkANS3 INI F .- ■ Dt VICE ADDRESS', 

.DC TYPE.'Pknt LABEl -PklNI I INIF '[NTIk PRINTER DEVICE ADDRESS' 

.DC. lYPE-Fkrtl I.ABi:LlKINT2 INII'l.LAVI BLANK IF NOT PRINTING', 



SCFit I 1 



0A95 


OF 4 1CF 070787 




0A9B 


OF- 41 8) 7K07 




OAAO 


0F41B3070884 




0AA6 


0F41813B0784 




OAAC 


0F4183070983 




0AB2 


0F41313B85 




0AB7 


0F419AO70A87 




OABD 


0F41813B81 




0AC2 


0F41890«)B84 




0AC8 


0F4181 218? 




OACD 


0F4181070C88 




oad;s 


0F41B1010044F. 


4 


OADA 


0FS3 




OADC 


FF0F82 




OADF 


060D95 




0AE2 


0F21A10F417F0 


1D3 


OAEE 


0600A7 




0AF1 


0FB3 




0AF3 


FFOFB? 




0AF6 


OF 6480 




OAF? 


0F41 71 01EF071 


498 


0B01 


071498 




0B04 


071498 




0B07 


0F51CA0F2480 




OBOD 


070E83 




OB 10 


0F218F 0F41813B07 


OB 19 


OF418307OF87 




0B1F 


OF41017B0484 




0B25 


0F648? 




0B28 


0F51 ?F02900EAA07 


0B30 


109 70FA0 




0B34 


071190 




0B37 


OF21B10F41B50 


100 


0B41 


4680 




0B43 


0F31B20F417F01DE 


0B4E 


0F4102071284 




0B54 


0F41EU3B0684 




0B5A 


0F41S 1071385 




0U60 
0B66 


0F41814B0I'B3 
0F83 




0B68 
0B70 


C3I:4E2F3I)6D4I 
D6D9I 4C5D9 


5D9 


OB 75 


C4C1E3C5 




OB 79 


L2i:ii>3t:5E2D4f 


ID 5 


0BB1 


D74B40D64B 




0B86 


L2Cf)C9D740C3D 




0B8F 


E2C8IJVDM0C3D 


6C4 


0UA5 


C9E3C5D4 




0BA9 


D8E4C1D5E3C9E 


3E8 


0BB1 


L'5EVC3C5C5C4t 


240 


0BC9 


CIVECIC 1L3C5I 


71:3 


OBDA 


D7D9C9C3C5 




OBDF 


C1D4D6E4D5E3 





FIIRMAIS rilF, IlkDL k ENIk 

154 .SI MIS! I ABU I RHDR I. Nil .-(..v. 

155 .SrMTPMl l--kMT-SP.HF.ADkl CS'PS -Nl 

156 .SI nil ED I I Dl -D.B.k/ CSPS--? 

157 .SFMFPMF PkMI SP,HFADK2 I.STS- 4 . 

158 .SFMIFLD FI.DI D.G,k2,Dk CSI S---2 . 

159 .SFMTPMr PkMI -SP.HFADk! CSPS 4 . 

160 .SFM1FI.D t\M -b.b.Kl C.SPS-=2 , 

161 .SFMTF-MI FkMF SF , HEADR4 CSF S Nl 
16? .SFMIFLD FLDF1),?,K/ CSPS-?, 

163 .SFMFPMI PKMI SP.HI.ADk5 USES- 10 

164 .SFMIFLD F1DF A.10.IE ESI SO. 

165 .SFMTPMT FKM 1 SF , HI ADP6 ESFS:'. 

166 .. SFMll-LD FLDF A , 1 , BE , DR CSIS'2. 

167 .SFMFEND. 

16? .SFM1SF LABEL 'PkSHIP, 

170 .SFMIPMT PRM1 TP.HE'ADk?, 

171 .SFMTFLD FL Dl A . 1 , BC . DR LSPS-21 

172 .SFMFPMI PRMICF,40, 

173 .SFM1END, 

175 .SFMFSF L 

176 .SEM1C1L 

177 .SFMIPMr 

178 .SFMIPMT 

179 .SFMIPMT 

180 .SEMTCTE 

181 .SFMTPMI 

182 .SFMIFLD 

183 .SFMIPMT 

184 .SFMIFLD 

185 .SFMTCIl 

186 .SFMIPMT 
187 

188 .SFMFPMI 

189 .SFMTFLD 

190 .SFM1PMI 

191 .SFMTCri 

192 .SFM1PM1 

193 .SFMFFLD 

194 .SI MIFM1 

195 ..VFMrFI D 
1.96 .SFMFEND. 

198 . 1)L I. ABEI 

1.99 .DC. LABEL 

200 .DF. I ABEI 

201 .Di: I API I. 

202 .Dl. I ABEI 

203 .DC LABEL 

204 .DL LABEL 

205 .DE 1 ABEI 

206 .DC I ABF I 

207 .DC l.ABF I 

208 .DC I ABF L 

209 .DF C ABE I. 



PKOMPI FOR HEADER DATA 
r.USFOMEE 

:nfl=rg, 

ORDER 



ABEL PRDE Tl , 

CI =1 GDSU.OFF, 

PRMFiSP, BLANKS CATS '240 

PRMT-SP. BLANKS, 

FRMt=SP, BLANKS, 

CSPS- - 75 CNTL'-CC. 

Pk'MF SF.DETL 1 , 

EI DF ■ D.8.R/.DR CSIS 

PkMI- SP.DF FL? ESFS 

F LDF -D.5.R/.DR CSPS 

CI-UUANSW.OFF. 

I'.SPS- 273 DS-I LY^-HI , BL 

Pk'MF SP,DETL3, 

FkMI- SF . DL IL4, 

Fl DF - A. 1 .BC.DR C..STS--46 

PkMI EP CNTL-RG, 

CSPS :*2?i BFPS" 51 CNT 

PkMI --SP.DE1L5 CSPS = 3. 

FLDF -D, 7,DR.kZ ESFS?, 

F RMT ■ SP.DLTL6 CSF S-4 . 

FT DF I), 13, BY i:.vl -S= ? 



= HEADkt IYIT 

HtADk? lYPt- 

= HEADR3 1YFE 

III ADR4 IfpE" 

= HtADR5 IrFL' 

■HEADP6 TYFE 

'Fl( ADk^ 1YF-F 



DF II 



I YF t 
T Yl E 
FYPE 
T f Ft 



.1)1. 



I ABEL DE 11 6 



.DC LABI- 1 PI AN 



F kMI INI I 

PRM1 IN1P 

FkMI IN1T- 

FRMI INI I = 

FKMI INI I 

FRMI INlt 

PkMI INI I 

PkMI IN1T- 

FkMI INI I 

PKMI INI I 

FRMI INI1- 

PRM I 1 N I I 

PRM1 INIF 

PkMI LLN .' 



SHIP CODE 



IkOMPT FOR SHIP CODE ERROR- 
SHIP CODE ERROR 
BFPS--34, 

ELEAR FIXED PROMPT LINE 



PROMF T FOR DETAIL. RECORD DATA 
BYPASS IF UPDATING 
CLEAR LINE 5 - PREVIOUS DETAIL 



END BYPASS 

ITEM 
Bl PS 16. 

IJUANIITY 
UNIL-RG, 

BYF ASS IF QUANTITY IS OK 

QUANTITY ERROR MESSAGE 

UUANIITY ERROR OPTIONS 
BE PS '+ 50, 

CLEAR FIXED PROMPT LINE 
-CE, END BYPASS, RESTORE CSPS 

PRICE 

AMOUNT 



SHIP CODL ERROR, REKEY ' 
I IEM' , 
UUAN! r I Y p , 

:ecds ijijantify limit, 
a- accept. r^rekey', 

KIEF ' , 

AMOUNT ' . 

INI T ' ■ 



5280 ASSEMBLER 01.00 
ADDR OBJECT CODE 



OBFE FFFF40 

0C01 80420060070708D2 

0C09 0764040408DA00 

0C10 OC64090608DFF2 

0C17 3468110C08E6E202 



PLE2 - ORDER ENTRY SAMPLE FROGRAM , 

SOURCE CODE 

EDII FORMAIS I OR PRINIEk 
FMTSI LABEL- DILI Ml , 

FMTFLD DEL BE I TMNC1 IYFF-D(.C LEN-8 COI • 60 . 

FMIFLD DCLBL^UUAN IYPE DEC LEN-5 LUC. = 70 ED1T-:BF. 

FMTFLD DF.T Bl FVICF T'rFF. DEE lEN'tO COI -77 EDI1-FL, 

FMTENI) DILBl AMI I Yl T Dl C LIN18 E0L--B9 EDFF.FX. 



EDIT I UkMAIS I OR FklNIEI 



0C22 


0760070708C2 


0C28 


OA60070708CA 


0C2E 


OA6807O508D200O8 


0C36 


0460010108D8 


0C3C 


0C60090908DA 


0C42 


2960060608E4 


0C48 


2B41FF46 


0C4C 


04760C54 


0C50 


494608CA 


OC54 


0B00012D 


0C58 


CF800000 


0C5C 


99440001 


0C60 


994208CA 


0C64 


0B000139 


0C68 


00000C54 


0C6C 


876108C2 


0C70 


B76188B8 


0C74 


2241 FFOO 


0C78 


25B10C55 


0C7C 


26C1.FF0O 


0C80 


4000FFFF 


0C84 


0B00012D 


0C88 


CF800100 


0C8C 


4C4008CE 


0C90 


OOOOOCBO 


0C94 


99440002 


0C98 


994208CE 


0C9C 


0BOO0139 


OCAO 


0O0OOCB4 


0CA4 


2242FF00 


0CA8 


25810C85 


OCAC 


4001.F IFF 


OCBO 


B9404A00 


0CB4 


BD4E4A00 


0CB8 


0B00012D 


OCBC 


CF800200 


OCCO 


806108E4 


0CC4 


53014661 


0CC8 


047D0CD9 


OCCC 


OB00012D 


OCDO 


CF800300 


0CD4 


OOOOOCCO 


0CD8 


52004661 


OCDC 


866188E4 


OCEO 


CA524C49 


0CE4 


03140D34 


0CE8 


07010D05 


OCEC 


??50?003 


OCFO 


04 730CF9 


0CE4 


99505003 


0CF8 


30C2FF4E 


OCEC 


99508000 


ODOO 


30D2024E 


01)04 


3041 FF08 



FMISF LABI I HDPtMl , 

FMTFLD DCl Bl CIIS1M 

FMTFLD DCl Bl. UKDNU 

FMTFLD DCl BL DAT! 

FMTFLD DCLBI. Mr.NNU 

FMTFLD DCl HI -F-llSFU 

FMTENI) DCl Bl SHPCD 



I YPF DF l: PEN -Fl COI 1 . 

IYPE DEC I EN- 8 CUl 11 . 

THE DF f. I EN H CUE 21 

FYI-E DEC I EN 2 COI. 31 , 

IYI1 DEC I.EN 10 CDF - 35, 

I YPF ■ Oil. I EN 7 COI - 1/ , 



229 START 



SRA1 l IkAN.V.UKBCI > , 

II Ik lltll IS UN IKIIO OPNFkN, 

BINF1EX (ItlBUl 14; 'B.UKBR1 i , 

CALL l.T AIEHC.D, 

ENIk (IRrRANS), 

CF FARM? I PANS, 

LFFAkMi " ADDRl KJBIJF >8) ; 

CALI CIDCUCHK, 

GOT CI OCNIRN, 

UKDkl KlBUFdl), 

LSNAMt 8; UKDkl , 

llF-l-.N i FkANS I , 



Lil'l DEO ADDR OF ' Dl ' 

BR IF SKAT FAILED 

ELSE USE AS DEFAULT FOR PRMT 

ASSURE KB IS ATTACHED 

PKOMPI FOR TRANS. FILE FARMS 

DSN FOR CFDEVCHK 

DEO ADDR PTR 

VALIDATE AND STORE DEVICE ADDR 

BR TO REPROMPT IF INVALID 

MOVE DATASET NAME 

OPEN TRANSACTION FILE 



IFDS1 H.IRANS NCI I ON GOTO OPNTRN; BR IF OPEN FAILED 

F USN ( TRANS, F UD ' . PREPARE TO ADD TO EXISTIK 

SON (EIIDSU), INDICATE AT EOD 



CAI 1 CI ATFBCD, 

LNTk (F-RPRINF > , 

1IC 12, 1UBU1 Nil I C ' ' SK 

UOTU Bl NK. 

CF'PAkM? - PkNl , 

CFF-APM1 - ADDkl ICIBIIF < 1.2) 

CALL CF DEVCHK, 

GOTO OPNPR, 

UPEN (PRNT), 



PROMPT FDR HEADER DATA 
K: 0(BUFC>) = C ' ; 

DUP (0,BUFS,79)i 
I: CALL CFATFBGD, 

ENTR (PRHDR); 
F -: UKDR1 = SHPCD<1), 

UKBR1 == TBFX(SHIPID,UKDR1) 



BR IF PRINTER NOT REQ ' D 

DSN FOR CFDEVCHK 

DEV ADDR PTR 

VALIDATE AND STORE DEVICE ADDR 

BR TO REPROMPT IF INVALID 

OPEN PRINTER 



SEED A BLANK 
BLANK THE BUFFER 
ASSURE KB ATTACHED 
PROMPT FOR CUST NO. ETC. 
GET SHIP CODE 
LOOK UP IN TABLE 



IFIR 1125 NOT ON GOTO SHIPOK; BR IF CODE FOUND OK 

CALL CFATFBGD ; ASSURE KB ATTACHED 

ENTR (PRSHIP)i ELSE GIVE ERROR PROMPT 

GOTO SHIP; RECHECK SHIP CODE 



HIFOK UKDR1 = TBRDCSHIPTXT.UKBRl) , 
SHPCD ~ UIKDR1, 
CRTMM (RWC0L,TXTB,K6) , 

WRITE HEADER RECORD 

IF BRIO IS GOTO READ; 

III PRNTSU NOT ON GOTO WRTHD, 

PRCNTL - X ' 9003 ' ; 

IFIR I11S NOT ON GOTO PRTHD; 

PRCNTL = X ' 5003 ' , 
kTFID : URT ( PRNT , , PRCNTLB ) , 

PRCNTL = X ' 8000 ' , 

URT (PRNT, HDRFMT , PRCNTLB , , B ) ; 
RTHD URT (TRANS, ,0) , 



GET TEXT FOR SHIP CODE 
PUT IN RECORD BUFFER 
MOVE TO DISPLAY SCREEN 



BR IF RECORD HAS NOT MODIFIED 

BR IF NOT PRINTING 

SET FOR TRIPLE SPACE 

SKIP IF NOT AT END OF PAGE 

SET FOR PAGE SKIP 

SPACE BEFORE PRINTING 

SET FOR SPACE SUPPRESS 

URITE TO PRINTER, SPACE SUPPRESS 

WRITE TO DISKETTE 



5280 ASSEMBLER 01.00 
ADDH OBJECT CODE 



SAMPLES - ORDER ENTRY SAMPLE PROGRAM, 
IE SOURCE CODE 



2113 



IF I EODSU NOT ON GOTO READ, BR IF UPDATING OLD RECORDS 



D4A10 
; "4A10 
001 2D 



205 » PROMPT FOR DETAIL RECORD DATA 
28* DETL 16<BUF0> = C 

287 DUP < 16, BUI- 0,32) , 

288 J IEM CALL CFATFBGD, 
28V ENTR (PRDEFL), 



SEED A BLANK 
BLANK THE BUFFER 
ASSURE KB ATTACHED 
PROMPT FOR ITEM NO. ETC. 



291 » WRITE DETA.U RECORD 

2V2 IF BRIO IS GOTO READ, 

293 IFI PRNT.SU NOT ON GOTO URTDT, 

294 URT (PRNT, DTLFM1 , , ,B> , 

295 URTDT CNTL = CD' , 

296 URT ( TRANS,, 0), 

297 IFI EODSU IX ON GOTO DETL, 

299 » READ FROM TRANSACTION FILE, Dt TA DI 



302 SELECT 



ON GOTO DE' 



BR IF RECORD WAS NOT MODIFIED 

BR IF NOT PRINTING 

URITE TO PRINTER 

CONTROL CODE FOR DATA DIR FMT 

URITE TO DISKETTE 

BR TO DO NEXT ITEM 

RECTED FORMAT 
READ NEXT RECORD 
BR IF REACHED EOD 
SKIP IF DETAIL RECORD 
ELSE UPDATE HEADER RECORD 
UPDATE DETAIL RECORD 



HANGE IIPDA 


L I 


U[ 11 BACK 




SKIP IF FT 


INI 


L.XL TURN PF 


INT 


DO NEXI 


IEM 



0D94 




0D94 




0D94 


99 4201A5 


0D98 


0B000125 


0D9C 


OOOOODAO 


ODAO 


23510000 


0DA4 


23520000 


ODAB 


C 7050000 


ODAC 


076EODB5 


ODBO 


2EOO00OO 


0DB4 


0B000141 


ODBH 


0O00ODB4 


ODBC 




ODBC 


9B4600A6 


ODCO 


6A463E09 


0DC4 


AA463D0A 


0DC8 


AA4A3304 


ODCC 


0OO0OEA8 


ODDO 




ODDO 


904 700A6 


0DD4 


6A4A37E2 


ODDO 


00000EA8 



325 


REKR 






i.V, 
3.V 


Nl XS 
INOP 






!2V 
3 <o 


MAGR 
Ul X.', 
1 LSI 






131 




CFFAKM1 - ADDKiMXI 


9V9RI . 


53.' 




CAI 1 LEIRIDSM. 




33 i 




'■010 lil.U. 




335 


• t ND 


OF JOB NOPMAl OR 1 


RROR 


336 


I D.I 


CLIl/ ( 1RANS) , 




337 




CI 02 (FRNI>, 




338 




CNF NIR. 




339 




IFI 11 1C NO I ON gi 


10 I Jt 


340 




EXIT , 




341 


E0.J1 


CALL CI I.0AD01, 




342 




GOTO ECIJ1 , 




344 


FUNC 






345 




UKBR1 -• SCNCD(2) , 




346 




IFH UKBR1 EQ X' 31 


GOTO A 


347 




IFH UKBR1 EQ X' 3D 


GOTO S 


340 




IFH UKBRi EO X'33 


GOTO S 


349 

351 


COMK 


GOTO KRTN, 

UKBRI ~ SCNCD(l) , 




353 




IFH UKBR'l FO X'37 


GO 10 E 


354 




GOTO KRTN, 





MK ,i VMS. I UNO, HM.-15. 
.Ul :'S.FC XF . 

DOUBLE I XII RNAL . I A I US 
< SHU IED COMMAND Kl Y 

>< MY SIROKt ERRUk 

9 1/0 MEMURY PAKI1Y I RROR 

10 INVALID 01 1RAI ION 

1 1 ■ MAI, SIRIPt READER 

12 1 "\ MEMORY PARITY ERROR 

I 3 INVALID STMT SERIES 

lib. T MESSAGE PTR 

I0.V1 ERROR MSC.E 10 X1AIUX LI 

BR 11 I ND Ul JOB RE Xl-'ONSt 



CI USE IRAN.VAC1I0N DAIA SI I 

I RINIER ALXU 

CANCFL POX'S 1BLL ENIR SIMT 

BR II IN FOREGROUND PARTITION 

Kl 1 I AS( BALKUROUND PART II [ON 

SHOU LOAD PROMPT 

REPEAT IF NECESSARY 

1 - FUNCTION KEY 
TEST CONVERTED EBCDIC 
BR IF ATTENTION KEY 

, BR IF SYSTEM REQUEST KEY 
I , BR IF SELECT FORMAT KEY 
BR TO IGNORE KEY 

2 UNSHIFTED COMMAND KEY 
TEST SCAN CODE 

BR IF CMD EOJ KEY 
BR TO IGNORE KEY 



5280 ASSEMBLER 01.00 



ORDER ENTRY SAMPL 



ODDC 
ODEO 
0DE4 



ODFO 
0DF4 
0DF8 
ODFC 



OBJECT CODE 

07000EA9 
C7050000 
0C010CB0 



C7050000 
0B00012D 
0B000141 
00000EA8 



OEOO 


81610126 


0E04 


53024661 


0E08 


08470E14 


OEOC 


08C208DA091108E6 


0E14 


0D940E200E3C0E4C 


0E20 


876108C2 


0E24 


0E610EA8 


0E28 


994201A0 


0E2C 


OB000125 


0E30 


OOOOODAO 


0E34 


CD000001 


0E38 


0O000EA8 


0E3C 


847108 DA 


0E40 


67917108 


0E44 


4002FFFF 


0E48 


00000EA8 


0E4C 


4ED90911 


0E50 


OOO0OE64 


0E54 


0C010E59 


0E58 


CD000001 


0E5C 


C7115400 


0E60 


0O000EA8 


0E64 


4102FFFF 


0E68 


0000OEA8 


0E6C 


848108DF 


0E70 


18617181 


0E74 


8C6188E6 


0E78 


C3000000 


0E7C 


00O00EA8 


OE80 




0E8O 


4EC40911 


0E84 


C71 15600 


0E88 


2041FF07 


0E8C 


410001FF 


0E90 


984700BE 


0E94 


9B46000F 


0E98 


9D460040 


0E9C 


A24700BE 


OEAO 


93240002 


0EA4 


0OOO0D3C 


0EA8 




0EA8 




0EA8 


079E0EB0 


OEAC 


OC010000 


OEBO 


CD010000 



SOURCE CODE 



356 


SELFMT: 


IFI EODSU NOT 


357 




CNENTR, 


358 




ENABLE (PINK, 


360 


ATTN 


CALL LFFERA'T 


361 




GOTO KRTN, 


363 


SYSRH 


CNENTR, 


364 




CALL CFA1FBGD 


365 




CALL CFL0AD01 



BR TO 1GN0RF I 

LANCE I INILR 

3R 10 START NEU HEADER 



DAI ING I ILL 



PERMIT AN01HI.I 



ART I T ION A 1 TALI 



INLtl POSSIBLE ENTER 
>'SURE KB ATTACHED 
;0MPI FOR LOADING BALK 



366 



GOTO KRTN 



368 FURG 

369 » BR iv 

370 UKDR1 = BR 19 + 0, 

371 UKBRI = TBFX(RGK'!N,UKO 

372 GOTAB UKBRI R'GROOT , 

373 .LABTAB LABEL^BUFAE ENTRY 

374 .LABTAB LABEL=KGROL T ENTRY -- 1 ■: 

376 CDSTROUT: UKDRI = CUSTM, 

377 IF UKDRi IS CK G010 KR 

378 CFPARMi - ADDKIMSG9111 

379 CALL CFEREDSM, 

380 GOTO EOJ, 

381 RESUME (B) , 

382 GOTO KRTN, 





CO 


Y ADDRES 


S UITHO 




CO 




FIND DAIA A 


DDRE SS 


IN 1A 




JO 


10 CIIRRE 


SPONDIN 




ROU 


CIIS1 


M , 


IJOAN, 


CNIl 




AM 


US 11 


JO 


.QUANROI 
1 CUSTOM 


1 , QUANl 
E R NO . 


" 


IRC 




BR 


IE SEE! 


CHECK I 


S 


OK 




UE 


MESSAGS 


F'TR 







POST ERROR MSGE TO STATUS 
BR IE END OF JOB RESPONSE 
BACKSPACE TO CUSTOMER NO. 
LEI OPERATOR FRY AGAIN 



384 QUANROUT RQUAN = QUAN, 

385 IFD RQUAN LE LIMIT 

386 SON ( QUANSU ) , 

387 GOTO KRTN, 



389 QUANCK 


IFC CNTL IS 


390 


GOTO QUANOK, 


391 


ENABLE; 


392 


RESUME <B', 


393 


KEYOP (X'll' 


394 


GOTO KRTN 


396 QUANOK : 


SOFF (QOANSU 


397 


GOTO KRTN 



399 FRCEROUTRPRICE = PRICE, 

400 UKDRI = RQUAN « 

401 AMT = UKDRI; 

402 REPFLD, 

403 GOTO KRTN. 



405 


RCBK 




406 




IFC CNTL IS CD' SKIP 


407 




KEYOf (X'll' ,K29) , 


408 




READ (TRANS, , --> , 


409 




SOFF (EODSU, PRNTSU), 


410 




UKBRI = MODESU, 


411 




UKBRI «.= X'OF' , 


412 




UKBRI V = X '40' , 


413 




MODESU = UKBRI, 


414 




BR18 - = 2. 


415 




GOTO SELECT, 


417 


BKRS 




418 


RCAO 




419 


KRTN 


IFI 1158 IS ON GOTO K 


420 




RETEXT, 


421 


KRTN1 


RESMXT, 



GET QUANTITY IN DEC REG 
GOTO QUANOK, BR IF BEl.OU MAXIMUM 
ENABLE ERROR PROMPT 
ASK OPERATOR TO VERIFY 

IP, SKIP IF 'RETRY' 

BR IF REFTY ACCEE'T', CONTINUE 
RE -ENABLE KEYBOARD INTERRUPTS 
FIELD BACKSPACE TO QUANTITY 



GET PRICE IN DEC REG 
MULTIPLY PRICE « QUANTITY 
STORE IN DAIA BUFFER 
REPLACE IN DISPLAY 
LET OPERATOR TRY AGAIN 

7 - RECORD BACKSPACE 

SKIP IF DETAIL RECORD 

ELSE CLEAR HEADER FROM SCREEN 

READ PREVIOUS RECORD 

SET UPDATE MODE, STOP PRINTING 

GET KB/CRT MODE BYTE 

CLEAR MODE BITS, KEEP OTHERS 

SET 10 UPDATE MODE 

PUT It BACK 

POP SUBRTN STACK - NO RETURN 

DETERMINE IF HEADER OR DETAIL 



5 - BACKWARD PASS OVER 

6 RECORD ADVANCE 
BR IF ATTACHED 
RETURN, ENABLE 
RETURN, ENABLE, RESUME 



RG 



0000008000C00200 



0C48 FIRST INSTRUCTION ADDRESS 

OEEE MAXIMUM LOCATION COUNTER 

OEEE SUBROUTINE S1ACK ADDRESS 

005E BOUNDARY ALIGNMENT BYTE LOSS 





i"AMF :i U:"2 


hPi* u:.Nf 


value: 


000 0001 
000 0004 
000 0004 


ODt-B 
OLAt! 



SAMPLE PROGRAM , 



5280 ASSEMBLER 01.00 SAMPLE2 - ORDER ENTRY SAMPLE PROGRAM; 

DEFINED SYMBOL COMPB LENG VALUE TYPE REFERENCES 



00094 


BUFF I 


0000 


0400 


0300 


DATA 


0008/ 


00095 


EtUF i : :. 




0100 


0700 


DATA 




00066 




« 0000 


0000 




INST 




00066 


CFDEOCHK 


* 0000 


0000 




INST 




00066 


CFERI-DSM 


* 0000 


0000 




INST 






CFCHIERh' 


* 0000 


0000 


011.9 


INST 


00309 


00066 


CFl OADOl 


* 0000 




0141 


INS1 




00069 






0002 










CFFARM? 




0002 




BIN 




00066 


CFPERA1 1 


* 000 


0000 


0131 


INST 


00360 


00066 






0000 


0115 


INST 








0000 


0040 


0800 




00068 


00068 










BIN 




001. 1 J 


CNTL 


0000 


0001 


0911 


DATA 




00351 


CFJMK 


0000 


0004 


ODDO 


INST 


0032.1 


00 324 




0000 


0004 




INST 


00321 


00260 


LUST 


0000 


0004 


0CB8 


INST 


00303 


00103 


CU.VFM 




0008 


08C2 


DATA 


00222 


003 76 


CUSTROUI 


0000 


0004 


0E20 


INST 




0010') 


DATE 


0000 


0006 


08 D 2 


DATA 


00224 


00286 


DETL 


0000 


0004 


ODOC 


INST 


0029? 


00205 


DETL1 


OOOL 




0BA5 






00206 


i>e: tl j 


OOOF 


0008 






00183 


00207 


df:tl3 


0010 


001.8 


0BB1 


PRMT 


00186 


00208 


DETL4 


001 ( 


0011 


0BC9 


PRMT 


00188 


0020? 


DETL 1 ! 




0005 


OFJDA 




00192 


00210 


DETL6 






OBDF 


PRMT 


00194 


00323 


DEXS 


0000 


0004 


0D94 


INST 


00321 


00318 


DKRTN 


0000 








00316 


00307 








0D48 


INST 




00098 


DSNAMK 


0000 


OOOA 


08B8 


DATA 




00214 


DTI ..KMT 


0001 


0003 


OBFE 




00294 


00312 


EOD 




0004 


0D5C 






00060 


EODSU 


0000 


0000 




IND 


00176 




EOJ 


0000 


0004 


ODAO 


INST 


00310 


00341 


E0J1. 


0000 


0004 




INST 


00339 


00321 


ERRKB 


0000 


001C 


0D78 


DATA 


00057 


00330 


FCSE 


0000 




0D94 


INST 


00321 


00344 


FUNC 


0000 


0004 




INST 


00321 


00368 


FURG 




0004 


OEOO 


INST 


00321 


00309 


GIOERR 


0000 


0004 


0D50 


INST 


00091 


00221 


HDRFMT 


0002 


0003 


0C1F 


FMT 


00281 


00198 


HEADR1 


0007 


0008 


0B68 




00155 


00199 


HEADR2 


0008 


0005 


0B70 


PRMT 


00157 


00200 




0009 


0004 


0B75 


PRMT 


00159 


00201 


HEADR4 


OOOA 


0008 


0B79 


PRMT 


00161 


00202 


HEADR5 


OOOB 


0005 


0B81 


PRMT 


00163 


00203 


HEADR6 


oooc 


0009 


0BS6 


PRMT 


00165 


00204 


HEADR7 


000D 


0016 


0B8F 


PRMT 


00170 


00327 


INOF 


0000 


0004 


0D94 


INST 


00321 


00101 


I0BUF 


0000 


0080 


08C2 


DATA 


00057 


00288 


ITEM 


0000 


0004 


0D14 


INST 


00304 


00109 


ITMND 


0000 


0008 


08D2 


DATA 


00215 


00065 


1115 


0073 


ooop 


0000 


IND 


00277 


00065 


1118 


0076 


0000 


0000 


IND 


00230 


00065 


1125 


007D 


0000 


0000 


IND 


00264 


00065 


1158 


009E 


0000 


0000 


IND 


00419 


00325 




0000 


0004 


0D94 


INST 


00321 


00419 


KRTN 


0000 


0004 


0EA8 


INST 


00349 


00421 


KRTNl 


0000 


0004 


OEBO 


INST 


00419 


00078 




0054 


0002 


0154 


BIN 


00393 


00079 


K29 


0056 


0002 


0156 


BIN 


00407 


00080 


K3701 


0058 


0002 


0158 


BIN 


00308 


00077 


K6 


0052 


0002 


0152 


BIN 


00271 


00082 


LIMIT 


0091 


0010 


0190 


DEC 


00385 


00328 


MADR 


0000 


0004 


0D94 


INST 


00321 



00259 00286 0028 7 



00331 003 



00302 00373 00389 00406 



00373 003/ 



00243 00283 00297 00301 00312 00356 00409 

00333 00353 00380 

00342 



00073 00087 00231 00235 00238 00247 00250 



00354 00356 00361 00366 00377 00382 00387 00394 00397 00403 



00106 
00059 
00083 
00084 
00326 
00245 
00232 
00104 
00107 
00097 
00399 
00076 
00075 
00175 
00154 
00111 
00150 
00151 
00061 
00060 
00138 
0016? 
0027? 
0012? 
00110 
00389 



00081 
0008). 
00072 



00229 
00363 
00145 
00061 
00146 
00148 
00149 
00074 



00081 
00295 
00282 



MANNO 

MODESU 

MSG9111 

MSG999B 

NEXS 

OPNPR 

OPNTRN 

ORDNO 

POSTO 

PRBUF 

PRCEROUT 

PRCNTL 

PRCNTLe 

PRDETL 

PRHDR 

PRICE 

PRINT1 

PRINT2 

PRNT 

PRNTSU 

PRPRINT 

PRSHIP 

PRTHD 

PRTRANS 

QUAN 

QUANCK 

QUANOK 

qilANROUT 

QUANSU 

RCAD 

RCBK 

READ 

RGROUT 

RGRTN 

RPR ICE 

RQUAN 

RUCOL 

SCNCD 

SELECT 

SEEFMT 

SHIP 

SHIPCODE 

SHIP ID 

SH1P0K 

SHIPTXT 



TRANS 
TRANS1 
TRANS2 
TRANS3 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0050 
004E 
0004 

0000 
0005 
0006 
0000 
0001 
0001 
0003 
0000 

0000 
0000 
0000 
0000 
0002 
0000 

0000 
0000 
0002 
0081 



0002 08D8 

0001 OOBE 
0005 01A0 
0005 01A5 
0004 0D94 
0004 0C84 
0004 0C54 
0008 08CA 
OOOA 08DA 
0078 0840 
0004 0E6C 

0002 0150 

0002 014E 

0003 0AF3 
0003 0A92 
0007 08DF 
001C 0A5B 
001B 0A77 

0002 0002 
0000 0000 

0003 09CF 

0003 OADC 

0004 0CF8 

0003 09A9 

0005 08DA 

0004 0E4C 
0004 0E64 
0004 0E3C 
0000 0000 
0004 0EA8 
0004 0E8O 
0004 0D34 
OOOA 0E14 



0000 
0000 
0000 
0000 
0000 
0001 
0000 
0000 
0000 
0000 
0000 
0001 
0000 
0002 
0003 
0004 
004C 



DATA 
INST 
INST 
INST 



BIN 
BIN 
STMT 
SFMT 
DATA 
F'RMT 
PRMT 
SDT 
IND 



CD8 



0008 097 
0004 
0008 096E 
0007 08E4 
0004 0C48 
0004 ODFO 
001A 09ED 
0002 0001 
0039 0A07 
OOOD 0A40 
OOOE 0A4D 
0002 014C 
0004 0D94 
0002 0146 



0061 0010 0160 
0000 0004 0D28 
0000 0004 0D04 



00225 

00313 00315 00410 00413 

0037B 

00331 

00321 

00252 00254 

00230 00237 00241 

00223 

00226 

00091 

00374 

00075 

00279 

0028? 

00261 

00217 

00140 

00142 



00316 00337 



00385 
00374 
00185 



00373 00384 
003?0 
00386 00396 

00283 00292 



00385 
00352 



00372 
00371 

00384 

00345 
00415 
00348 
00267 



00074 002 



00130 
00087 
00131 
00132 
00134 
00271 
00321 
00229 
00352 
00238 
00293 



0296 00300 



00231 00263 00269 00307 00308 00313 00314 00315 00345 00346 00347 00348 

00353 00371 00372 00410 00411 00412 00413 

00239 00262 00263 00269 00270 00370 00371 00376 00377 00400 00401 



0275 



The following is a sample of output: 



00001834 00085326 12/2">/ 79 02 ROCHESTER AIR 



00054321 
0006/893 
00053241 



J9.53 $.., 



362 



Glossary 



access method: A technique for moving data between 
main storage and input/output device. 

active data set: A data set being used by a program. 

address: A name, label, or number that identifies a 
register, location in storage, or any other data source. 

alphabetic characters: Letters and other symbols, 
excluding digits, used in a language. 

alphabetic field: One or more alphabetic characters of 
related information in a record. 

alphabetic shift: A control (attribute or key) for 
selecting the alphabetic character set in an alphameric 
keyboard. 

alphameric characters: Same as alphabetic characters, 
with the addition of digits through 9. 

alphameric field: One or more alphameric characters of 
related information in a record. 

arithmetic expression: An expression that contains 
arithmetic operations and that can be reduced to a 
single numeric value. An arithmetic expression is 
evaluated from left to right with multiplication and 
division preceding addition and subtraction. 

alternate record advance: A function that causes the 
system to stop processing the current record and ignore 
any specifications between the cursor position and the 
end of the record when the Enter or Record Advance 
key is pressed. 

application program: A program that processes user 
data to perform a particular data processing task; for 
example, inventory control or payroll. 

ASCII: (ANSI definition) American National Code for 
Information Interchange. The standard code, using a 
coded character set consisting of 7-bit coded characters 
(8 bits including parity check), used for information 
interchange among data processing systems, data 
communication systems, and associated equipment. The 
ASCII set consists of control characters and graphic 
characters. 



assembler: A computer program that prepares an 
object program from a source program written in a 
symbolic source language. 

assembler language: A source language that includes 
symbolic machine language statements in which there is 
a one-to-one correspondence with the instruction 
formats and data formats of the computer. 

attribute: A characteristic. For example, attributes of a 
data set include record length, label, and creation date. 
Attributes of a displayed field could include high 
intensity, reverse image, and column separators. 

auto dup: Automatic duplication. 1 . The process of 
automatically copying the contents of a field in a 
previous record or a storage area into the corresponding 
positions of the current record. 2. The process of 
automatically verifying the contents of a field in the 
current record with the contents of the corresponding 
positions of a previous record or a storage area. 

auto record advance: Automatic record advance. A 
movement forward to the next sequential record without 
manual intervention when current record is completely 
entered and the auto rec adv switch is on. 

auto skip: Automatic skip. In enter mode, if the auto 
skip/dup switch is on, the process of automatically 
filling an auto skip field with blanks and advancing to 
the next field. In verify mode, the process of verifying 
that all the positions in the field are blank. 

auto verify: Automatic verify. In verify mode, auto dup 
fields are checked against the same fields in the 
previous record. See auto dup, 2. 

auxiliary duplication: The process of copying or 
verifying data from a named storage location into a field. 

awaiting field exit: The state of the keyboard when 
the operator has entered the last position of a field that 
is defined as a field exit required field. 

awaiting record advance: The state of the keyboard 
when the operator has entered the last position of a 
record with a key other than the Record advance key, 
and the Auto-enter function is not enabled. 
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background job: A job that is run in a partition which 
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unit. 



collating sequence: The order each character hoicis in 
relation to other characters according to the bit 
structure. 



base displacement addressing: An addressing method 
that involves setting up a base address from which 
other addresses can be calculated. 

basic data exchange: A diskette data exchange that 
uses 128-byte sectors and allows only one record per 
sector. The logical record length must be < 1 28 bytes, 
and is unblocked and unspanned. The basic data 
exchange formats allow you to exchange data between 
5280 and other systems that use the basic data 
exchange format. 

binary: Base 2 arithmetic. 

binary register: A two- byte register in partition storage 
which contains binary notation and is used for binary 
arithmetic/logical operations. 

binary search: At each step of the search the set of 
items is partitioned into two equal parts so that the 
search starts at the middle. 

blank check: A check of a field to ensure that there are 
no blank characters (hex 40) in the field. 

blank fill: To fill a field with blank characters (hex 40). 

blocking: Combining two or more records into one 
block. 



column separators: A display screen attribute that 
shows vertical lines preceding each position of a field on 
a display. These lines do not occupy positions on the 
display. For example lAiBiC. 

command function keys: The 14 keys on the top row 
of the data station keyboard that are used with the 
command key to request functions. 

comments: Words or statements in a program that 
serve as documentation rather than instructions to an 
assembler or compiler. 

common area: The first part of main storage that 
contains the system control area, common functions, 
global tables (such as ASCII and error recording), and so 
on. Depending upon the common function option 
selected, this area can be 6 K, 14 K, or 16 K. This area 
is not available for user programs. 

common functions: A set of IBM-supplied programs 
in the common area that is used by programs executing 
in any partition. 

communications access method (CAM): A 5280 
program that provides the necessary link between a 
communications program and the communication line. It 
performs functions such as data formatting and link 
protocol. 



boundary alignment: The positioning of data areas 
such as registers or blocks, on an appropriate boundary 
for that type of data. 



concurrent: (ANSI Definition) Pertaining to the 
occurrence of two or more activites within a given 
interval of time. 



branch instruction: An instruction that changes the 
sequence in which the instructions in a computer 
program are executed. Execution of instructions 
continues at the address specified in the branch 
instruction. 

BSC: Binary synchronous communications. 

buffer: An area of storage that is temporarily reserved 
for use in performing an input/output operation, into 
which data is read or from which data is written. 



configuration: The group of machines, devices, 
features, and programs that make up a data processing 
system. 

constant: A data item that does not change during the 
execution of a program. This item represents itself and 
is actually used in processing rather than being a field 
name representing the data. For example, 'cost' is a 
name representing a field containing data that changes. 
The constant 100 is actual data used that does not 
change. 



CAM: Communications access method. 

character constant: Any combination of characters, 
including blanks, enclosed in apostrophes. 



control block: A storage area used by a program to 
hold control information. 
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controller: A device that controls operation of one or 
more input/output devices; for example, a work station 
controller. 

copy: To read data from a source, leaving the source 
data unchanged, and to write the same data elsewhere 
in a physical form that may differ from that of the 
source. 

counter: A register or storage location used to 
accumulate the number of occurrences of an event. 

cursor: A movable horizontal line (underscore) on a 
display screen, used to indicate where the next 
character entered by the operator will appear. It blinks 
when no additional entry is allowed and the system is 
awaiting the Enter key. 

cylinder: The tracks that can be accessed without 
repositioning the diskette drive access mechanism. 



DE/RPG: Data Entry with RPG subroutines. A 5280 
program product that provides a means for writing 
programs that provide the function required for a 
specific job. 

device address: Four hex characters used to identify a 
5280 I/O device such as a diskette drive or printer. 

diacritic: A modifying mark that changes the phonetic 
value of a character. When you enter a diacritic from 
the keyboard, the cursor does not advance until another 
character is entered to combine with the diacritic. 

diacritic table: A table that defines diacritic characters 
and valid diacritic-character composites for graphic 
display. 

direct access: The ability to obtain data from a storage 
device directly by key or relative record. Contrast with 
sequential access. 



data-directed format selection: Format selection is 
determined by the data contained in the record. 

data required: A field attribute that indicates an 
operator must enter at least one non- blank character 
into the displayed field. 

data set: An organized collection of related data 
records treated as a unit and existing on a diskette. 

data set label: A 128-byte area on the diskette index 
cylinder that describes a data set. 

data set name: The name associated with a data set. 
The first character must be alphabetic, and the 
remaining characters can be any combination of 
alphabetic or numeric characters. Blanks cannot appear 
between characters in a name. 

data stream: Data transferred by stream-oriented 
transmission, as a continuous stream of data elements 
in character form. 

data table: A table defined by the .TABLE control 
statement. 



direct access method: An access method for 
processing files by specifying the address (record 
number) or key value of each record to be accessed. 

direct addressing: A method of addressing in which 
the addressed storage location contains the desired 
data. See also indirect addressing. 

direct by key access method: An access method for 
processing index data files by specifying the key 
associated with each record to be accessed. The current 
key specified need not have any relative sequence with 
the last key or next key to be specified. 

displacement: The number of bytes from the beginning 
of a partition or block to the beginning of a particular 
data area. 

display attributes: The characteristics assigned to a 
field record that control the way the data is displayed. 

double register: Two decimal or binary registers used 
together as one data area. In a program, the leftmost 
register is referenced, followed by the length in 
parentheses (4 for binary, 32 for decimal). 



decimal register: A 16-byte register wherein data is 
stored in EBCDIC or signed decimal numbers and is 
used for arithmetic/logical operations. 

default value: A value automatically chosen by the 
system when a value is not specified by the user. 



dup: Abbreviation for duplicate. 

EBCDIC (extended binary-coded decimal interchange 
code): A character set containing 256 eight-bit 
characters. 
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edit format: A description of a record that is read from 
a diskette, written to s diskette or printer, or moved 
from one storage location to another. An edit format is 
set up by a FMT series of control statements, and 
defines the fields, puncutation, data types, and other 
editing requirements of the record. 

ELAB/ETAB: Parameter in the COMM and DATASET 
statements which specifies the name of a routine (ELAB) 
or table (ETAB) to be used to handle error conditions. 



hex: Hexadecimal. A number system using 16 symbols: 
Q-9, A-F each representing 4 bits (one-half bvte). 

H-type data exchange: A diskette data exchange 
format that uses 256- byte sectors. It allows only one 
record per sector. The logical record length must be 
256 bytes; it is unblocked and unspanned. The H-type 
exchange allows you to exchange data between 5280 
and other systems that use the H-type data exchange 
format. 



enter mode: The mode in which the operator initially 
enters data through a display station. Some editing and 
interaction may occur. See also verify mode; update 
mode. 

E-type data exchange: A diskette data exchange 
format that uses blocked and spanned, blocked and 
unspanned, or unblocked and unspanned records. Block 
size can be up to 16,256 bytes. 

extent: A continuous space on a diskette that is 
occupied by or reserved for a particular data set. 

extra line: Row 1 of the screen refresh buffer, which 
can be displayed on the top row of the screen in place 
of the status line. 

field: One or more bytes of related information in a 
record. 

field attribute: See attribute. 

foreground job: The keyboard /display unit is 
immediately available to the partition where the job is 
being executed. 

format level: The identification associated with a 
format. 

format (zero): A format for display stations that 
allows entering information on an unformatted display. 

global load: A load operation that uses the standard 
load prompt. A global load is initiated by the system 
when the load parameters are not specified for a LOAD 
instruction in an assembler program, and when an error 
occurs when using the Standard Load Processor. 



index data set: A data set in which the keys from 
another data set and their record position within that 
data set are recorded. When index data sets are used, 
the following access methods can be used: sequential; 
direct by relative record number; and direct by key 
value. 

index register: A register whose contents can be 
added to or subtracted from the operand address before 
or during execution of a computer instruction. 

indexed address: An address that is modified by the 
content of an index register before or during the 
execution of an instruction. 

indexed instruction: An instruction that requires 
address modification before the data byte is fetched 
from storage. 

indirect addressing: A method of addressing in which 
the addressed storage location contains the address of 
the desired data. See also direct addressing. 

initial program load (I PL): A sequence of events that 
loads the system programs and prepares the system for 
execution of jobs. 

input data set: A set of records a program uses as 
source information. 

input/output control block (IOB): A data area that 
may be used to pass the required information from the 
calling program to the input/output supervisor for data 
operations. 

input record: A data record that is transferred to 
computer storage for processing. 



global table: A table in the common area. The first two 
global tables are the error recording tables. If the ASCII 
translate table is selected during system configuration, 
the ASCII translate table is another global table. 



insert field: A field not present in the enter record, but 
which will be inserted by the system and will be present 
in the output record. 
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instruction: A statement that specifies an operation to 
be performed by the computer and the locations in 
storage of all data involved in that operation. 

IOB: Input/output control block. 

IOB pointer: A 4-byte block in the system control area 
that contains the address of a device IOB and other 
information (such as, if the device is installed). 

IPL: Initial program load. 

l-type data exchange: A diskette data exchange format 
that uses 128, 256, 512, or 1024 byte sectors. All 
records in a data set must be the same length. All 
records in the data set are blocked and spanned. The 
l-type exchange allows you to exchange data between 
the 5280 and other systems that use the l-type data 
exchange. 

keyboard/display storage: An area of control storage 
separate from amin storage, which provides control 
information and refresh areas for processing keystrokes 
and for displaying characters on the screen. 

label table: A table of addresses set up by the 
.LABTAB control statement, and used for indexed 
branches and indexed subroutine calls. 

logical record: A record independent of its physical 
environment. Portions of the same logical record may 
be located in different physical records, or several logical 
records or parts of logical records may be located in one 
physical record, depending on the exchange type being 
used. 

Magnetic Stripe Reader feature: Allows use of the 
5280 system only after a valid badge (operator ID) is 
read by an attached magnetic stripe reader. 

main storage: 1 . General purpose storage of a 
computer. 2. Storage that can be addressed by 
programs, from which instructions can be executed, and 
from which data can be loaded directly into registers. 

main storage duplication field: See auxiliary 
duplication. 

main storage store field: A field that is automatically 
stored from the current record buffer into a main 
storage location. 



mandatory enter: A field attribute that indicates an 
operator must enter at least one character into the 
displayed field. 

mandatory fill: A field attribute that indicates an 
operator must enter all or none of the displayed field. 

mask: A pattern of characters that is used to control 
the retention or elimination of another group of 
characters. 

multinational character set: The 1 88-character (or 
184 character) display and printer character set available 
with the 5280. 

multivolume data set: A data set that extends beyond 
the boundaries of a single data set. It can be extended 
on the same diskette or on another diskette. 

nondisplay: A field attribute that prevents display of 
data. It can be used for fields containing confidential 
information. 

null character: The hexadecimal character 00. 

numeric fields: A field that contains one or more 
numeric characters. Valid numeric characters are the 
digits 0-9 and + (plus sign), - (minus sign), . (decimal 
point), blank, and , (comma). 

numeric shift: A control (attribute or key) for selecting 
the numeric character set in an alphameric keyboard. 

object code: The four-byte instructions from the 
compiler or assembler that are machine executable. The 
first byte of the object code contains the operation 
code. 

object program: A set of instructions in machine 
language (object code). The object program is produced 
by the assembler from the source program. 

offset: The distance from the beginning of a register or 
record to the beginning of a particular field. 

output data set: A data set containing the data that 
results from processing. 

packed data field: One byte is used to store two 
numeric digits. Bits through 3 for one digit and bits 4 
through 7 for the other. 
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packed decimal formai. Each byte within a field 
represents two numeric digits except the rightmost byte, 
which contains one digit in bits through 3 and the sign 
in bits 4 through 7. For all other bytes, bits through 3 
represent one digit; bits 4 through 7 represent one digit. 
For example, the decimal value +123 is represented as 
0001 0010 0011 1111. Contrast with zoned decimal 
format. 

pad: To fill unused positions in a field with dummy 
data, usually zeros or blanks. 

partition: An area of 5280 storage in which a program 
can execute. 

partition pointer: Contains the address of the 
beginning of a partition. The partition pointer also 
contains flags to indicate the status of the partition 
(such as whether the partition is a foreground or 
background partition). 

physical record: A record whose characteristics depend 
on the manner or form in which it is stored, retrieved, or 
moved. A physical record may consist of all or part of a 
logical record. 
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■location table: A table in storage that is 



used to assign a logical device ID (a name) to a physical 
device. 

return-to-program exit: See RG exit. 

RG exit: A user exit that interrupts the processing of a 
screen format to give control to a user's routine. 

SCP: See system control program. 

screen format: A description of a record that is 
entered via the keyboard /display. A screen format is set 
up by a SFMT series of control statements, and defines 
the fields, prompts, control specifications, and display 
attributes of the record. 

screen format control string: The object code that is 
generated by a series of SFMT control statements. 

SCS conversion data set: A data set that has SCS 
conversion specified in the .DATASET control statement 
that defined the data set. The system automatically 
inserts SCS control characters into an SCS conversion 
data set. 



program listing: A computer printout that gives 
information about the source program, such as source 
statements, diagnostic messages, indicators used, 
storage addresses of fields and constants used. 



SCS data set: A data set that contains SCS control 
characters. Contrast with SCS conversion data set. 

SDLC: Sychronous data link control. 



program product: An IBM -written, licensed program 
for which a monthly charge is made. A program product 
performs functions related to processing user data. 

reformatting: The rearrangement of an addition or 
elimination of fields in a record. 

refresh: The continuous redisplaying of data on the 
display screen to prevent the data from fading out. 

refresh buffers: Areas in keyboard /display storage that 
are used to refresh each row of display characters on 
the screen. The refresh area for the status line is in an 
area separate from the refresh area for the other rows 
on the screen. 



self-check field: A field, such as an account number, 
consisting of a base number and a self-check digit. For 
data entry applications, the self-check digit entered by 
the operator is compared to the self-check digit 
computed by the system. If the operator makes a 
mistake when entering (keying) a self-check field, an 
error message is displayed. 

sequential access method: An access method in 
which records are accessed in the order in which they 
occur in the file. Contrast with direct access method. 

sequential by key: A method of data set processing 
that accesses records in the order in which a keyed or 
indexed data set is arranged. 



relative addressing: A means of addressing 
instructions and data areas by designating their location 
in relation to the location counter or to some symbolic 
symbol. Relative addresses of areas within a partition 
are relative to the beginning of the partition. 

relative record number: A number that specifies 
the location of a record in relation to the beginning 
of the data set. 



SNA: Systems network architecture. 

source program: A set of instructions that represents a 
particular job as defined by the programmer. These 
instructions are written in a programming language, such 
as GSLE. 
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spanned record: 1. A record that corsses a block 
boundary. 2. A record that is stored in more than one 
block. 

stack pointer: The binary register (BR18) used for 
subroutine calls and returns. During a subroutine call, 
the stack pointer contains the address of the next 
available entry in the subroutine stack; during a 
subroutine return, it contains the address of the last 
entry in the subroutine stack. 

standard load prompt: The screen format stored in the 
common area that is used to prompt for load 
parameters during a global load or by the Standard Load 
Processor. 

status line: Usually, the first line on a display screen. 
This line provides operational information. 

stripped zone: See packed data field. 

subroutine stack: A table of return addresses used for 
subroutine returns. 

Synchronous data link control (SDLC): A discipline 
for managing synchronous, transparent, serial-by-bit 
information transfer over a communications line. 

syntax: (ANSI definition) 1 . The structure of 
expressions in a language. 2. The rules governing the 
structure of a language. 

system configuration: A process that specifies the 
various components and devices that form a particular 
operating system. System configuration combines 
user- specified options and parameters with IBM 
programs to produce a system having the desired form 
and capacity. 

system control programs: IBM-supplied programs 
that are on a diskette. These programs are included 
with each system and allows the opoerator to configure 
the system, I PL the system, and recover from power 
failures. 



system network architecture (SNA): A total 
description of logical structure, formats, protocols, and 
operation sequences for transmitting information 
throughout a communications network. 

timeout: A time interval during which a station waits 
for a certain operation to occur. Some timeouts are 
automatic hardware functions and some are program 
functions. 

update mode: The mode in which the operator selects 
certain records for review and correction. See also enfer 
mode; verify mode. 

verify: To determine whether a transcription of data or 
other operation has been accomplished accurately. 

verify bypass field: A field that was entered, but does 
not need to be verified. 

verify mode: The mode in which the operator rekeys 
data from a source document that has already been 
keyed in order to check that the data has been entered 
correctly. See also enter mode; update mode. 

zero fill: To fill with the numeric value zero. 

zero suppress: The elimination of preceding zeros in a 
number. For example, 0057 becomes 57 when zero 
suppressed. 

zoned decimal format: Representation of a decimal 
value by 1 byte per digit. Bits through 3 of the 
rightmost byte represent the sign; bits through 3 of all 
other bytes represent the zone portion; bits 4 through 7 
of all bytes represent the numeric portion. For example, 
the decimal value +123 is represented as 1111 0001 
1 1 1 1 0010 1 1 1 1 001 1 . Contrast with packed decimal 
format. 

zoned field: A field that contains data in the zoned 
decimal format. 



system control area: 256 bytes starting at address 
X'00'. This area contains information such as the 
address of each partition, device I0B pointers, system 
flags, machine storage size, and so on. 

system table: A table set up and used by the system 
to store the addresses of screen formats, edit formats, 
prompts, data tables, and duplicate or store fields. 
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+ 139 
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& = 134 
• 140 
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accept key entry (ENTR) 196 

accept unformatted keystrokes (KACCPT) 

access methods 181 

ACL conversion 297 
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add, decimal 139 

ADDR function 60, 129 

addressing methods 
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direct addressing 11,121 
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ALLOC 171 
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allow detach routine (CFDETFGD) 272 
alphabetic fill character 54 
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alphabetic shift field 104 
alternate record advance 29 
alternate register 115 
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AND instruction 161 
AND, binary 134 
application control language 297 
ARGL (TABLE parameter) 76 
arithmetic expressions 1 29 
arithmetic instructions, binary 131 
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ASCII processor 272 
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assembler diskette 255 
assembler error messages 353 
assembly listing 110, 262 
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attach a partition 203 
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badge reader characters 210 
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BFPS (.SFMTCTL parameter) 96 

BFPS (.SFMTFLD parameter) 102 

binary arithmetic 131 

binary register relational compare 1 55 

binary registers 9 

declare a register 65 

double binary registers 9 

load 214 

store 219 

system registers 9, 268 
binary search, data set 186 
binary search, table 243 
BINDEC 223 
BIN HEX 223 

bit numbers for keyboard functions 349 
BKCK (.KBCRT parameter) 54 
blank a decimal register 142 
blank check character 54 
blank check field 107 
blanks 14 

in a control statement 51 

in an instruction 1 1 9 
block size 69,74,172 
boundaries 1 3 
boundary alignment 13, 59 
braces 1 5 
brackets 1 5 
branch instructions 145 
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branch on test instructions 1 50 
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BSIZ 172 
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close a data set 

communications 1 68 

diskette 174 

printer 1 94 
CLOZ 174, 194 
CNENTR 201 

CNST (.SFMTCNS parameter) 99 
CNTL (.SELFCHK parameter) 113 
CNTL (.SFMT series parameter) 90 
CNTL (.SFMTCNS parameter) 99 
CNTL (.SFMTCTL parameter) 95 
CNTL (.SFMTEND parameter) 103 
CNTL (.SFMTFLD parameter) 101 
CNTL (.SFMTST parameter) 94 
CNTR (.KBCRT parameter) 55 
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comments 
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common function labels 259 
common function routines 270 
common functions 116 
communications 67 

communications access method (CAM) 68 
communications control 166 
communications instructions 164 
compare logical character strings 247 
compression 73 

condition character, data directed formatting 
condition code format 24 
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conditional branch instructions 150, 154 
conditional bypass 33, 95 
constant insert field 31, 99 
constant, store 221 
constants 14, 121 
control statement summary 49 
conversion of data, in edit format 83 
conversion program errors 355 
convert data 222 
CRBA (.KBCRT parameter) 53 
cross-reference listing 264 
CRTMM 229 

CSPS (.SFMT series parameter) 92 
CSPS (.SFMTCNS parameter) 99 
CSPS (.SFMTCTL parameter) 96 
CSPS (.SFMTFLD parameter) 102 
current position pointer 22, 55 
current record buffer 53, 196 
current record pointer 177 



data directed formatting 35 
data entry, keyboard 25 
data movement 214 
data required field 107 
data set indicator 153 
data set label 1 70 
data set name 71, 172, 236 
data set number 68 
data set type 68, 71 
data tables 18 
data types 19, 1 30 

change data type 1 30 
DCLBL (.FMTFLD parameter) 83 
DCLBL (.TABLE parameter) 76 
DECBIN 224 

decimal register arithmetic 1 37 
decimal register relational compare 156 
decimal register shift instructions 141 
decimal register zone modification 144 
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decimal registers 10 

declare a register 65 

double decimal registers 10 

load 216 

store 219 
declare binary registers 65 
declare control statements 57 
declare decimal registers 65 
declare indicators 65 
DECR 164 

decrement binary register and branch 164 
delete a data set 175 
delete a record 182 
delete a table entry 240 
delete character 1 72 
delete flag 74 
delta 75 

density of index tables 39 
detach keyboard 204 
detach partition routine 281 
DEV (.DATASET parameter) 71 
device address 71, 274 
device identifier 71 
DEVID (.DATASET parameter) 71 
DFLG 172 

DFLG (.DATASET parameter) 74 
digits only field 104 
direct addressing 11,121 
directed close, for printer 192 
diskette control operations 170 
diskette index 173 
diskette initialization 72, 177 
DISP (.DC parameter) 59 
DISP (.SELFCHK parameter) 115 
DISPEX 201 
displacement 1 1 
display attributes 91 
display extra line 201 
display mode 28 
display status line 201 
DISPST 201 
divide, binary 133 
divide, decimal 139 
DL, self-check 339 
DLTA (.DATASET parameter) 75 
double buffering 36 
DR, self-check 339 
DSN (.COMM parameter) 68 
DSN (.DATASET parameter) 71 
DSPLY 102 

DSPLY (.SFMT series parameter) 91 
DSPLY (.SFMTCNS parameter) 99 
DSPLY (.SFMTCTL parameter) 96 
dump/trace processor (CFDUMPTR) 274 
DUP 250 
dup field 31, 101 



dup key status 
duplicate a byte 



90 
250 



early write 1 90 

EBCDIC charts 347 

EDCNT (.EDITC parameter) 57 

EDCOM (.EDITC parameter) 57 

EDCUR (.EDITC parameter) 56 

EDDEC (.EDITC parameter) 56 

EDIT (.FMTFLD parameter) 83 

edit control characters 56 

edit control count 57 

edit currency symbol 56 

edit decimal character 56 

edit format 34, 81, 179, 231 

edit format label 82 

edit format system table 80 

edit separator character 56 

edit string characters 83 

ELAB (.COMM parameter) 68 

ELAB (.DATASET parameter) 71 

ELAB (.KBCRT parameter) 53 

elapsed time counter 213 

ENABLE 198 

end of data 1 70 

end of extent 1 70 

enter mode 26 

ENTR 196 

ENTRIES (TABLE parameter) 77 

ENTRY (.LABTAB parameter) 78 

ENTRY (.START parameter) 52 

equate 66 

erase a data set 1 75 

erase data set 73 

error code display routine (CFERCDSP) 276 

error code with message display (CFERCDSM) 277 

error label 53, 68, 71 

error messages on listing 265 

error messages, assembler 353 

error messages, conversion program 355 

error mode 204 

error recovery during load 234, 237 

error table 53, 68, 71 

errors only listing 257 

ES (.SFMTCTL parameter) 96 

ETAB (.COMM parameter) 68 

ETAB (.DATASET parameter) 71 

ETAB (.KBCRT parameter) 53 

exchange data 221 

exchange type 1 72 

exclusive OR write, skip on AND mask 162 

exclusive OR, binary 135 

EXIT 235 

EXPR (.EQUATE parameter) 67 

expression, equate 67 

expressions 1 28 
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extern data set 259 
external status 24 

condition code format 24 

system binary registers 25 
external status subroutines for keyboard/display 
external status, keyboard/display 285 
extra line 201 



field attribute chart 110 

field correct mode 28 

field definition, edit format 83 

field definition, screen format 100 

field exit minus key status 91 

field exit required field 107 

field modification indicators 35 

field type 100, 104 

fixed position prompt 98 

fixed prompt location 54 

FLDF (.SFMTFLD parameter) 100 

FLDLEN (.SELFCHK parameter) 112 

FMT (.SYSTAB parameter) 80 

foreground partition 203 

format level zero field 104 

format, of control statements 51 

format, of instructions 119 

FPLC (.KBCRT parameter) 54 

full data print 257 

FUNC (.KBCRT parameter) 56 



general I/O handler (CFGIOERR) 278 
generate a self-check digit 248 
global tables 246 
GOTAB 146 
GOTO 146 
GSCK 248 



HDR1 label 183 

HDR1 label, translate 73 

HDR1 labels 36 

for SCS conversion data sets 40 

update 36 
help text processor (CFHELP01) 279 
hex value of current position 23 
hexadecimal field 104 
HEXBIN 224 
HLIN (.KBCRT parameter) 55 



287 



horizontal tab table 69 
HTAB (.CO MM parameter) 69 



I/O control block 67, 70 

IF 150 

IF BRa 155 

IF BRn 150 

IFfmt 152 

IF Ra 156 

IF Rn - 151 

IF Rn AN 151 

IF Rn CK 151 

IF Rn SN 151 

IF Rn 151 

IFB 160 

IFC 159 

IFD 157 

IFDSI 153 

IFH 157 

IFHI 161 

IFI 153 

IFIR 154 

I FLO 161 

immediate data, binary relational compare 

included lines 112 

increment binary register and skip 163 

IND (.EQUATE parameter) 66 

index of data table 238 

index tables 38 

density of index tables 39 
indexed call 147, 149 
indicators 8, 243 

system indicators 8, 267 

field modification indicators 35 
indirect instruction execution 248 
INIT 177 

INIT (.DC parameter) 60 
INIT (.TITLE parameter) 111 
initialization of data areas 60 
initialize a data area 60 
initialize a diskette 177 
initialize a listing title 110 
initialize communications session 166 
initialize diskette 72 
input translate table, self-check 115, 331 
INSBLK 183 

insert a block of records 183 
insert a record 183 
insert a table entry 241 
insert mode 28 
instruction labels 119 
instructions 119 
INTAB (.SELFCHK parameter) 115 
INXEQ 248 
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IOB 67, 70 

IOB chain 170,174 



loop control 1 62 

LSTLN (.DATASET parameter) 



75 



KACCPT 202 

KATTCH 203 

KDETCH 204 

KERRCL 205 

KERRST 204 

key entry 1 95 

key indexed read data set 72 

key indexed update data set 72 

keyboard function bit numbers 349 

keyboard operations 199 

keyed data set 38, 180 

KEYOP 206 

keystroke counters 269 

keystroke router routine (CFKEYRT) 

KLEN (.DATASET parameter) 75 

KPOS (.DATASET parameter) 75 



label table 18,78 

label update 36, 72, 174, 175 

labeled addressing 121 

last line (for SCS conversion) 75 

LBUF (.COMM parameter) 69 

LBUF (.DATASET parameter) 74 

LEN (.DC parameter) 58 

LEN (.FMTFLD parameter) 83 

LENG function 130 

length specification 130 

changing declared length 

declared length 58 

of edit format field 83 
LEVL (.DC parameter) 59 
line size (for SCS conversion) 
LINSZ (.DATASET parameter) 
listing 262 
literal spacing 258 
load 

binary register 214 

decimal register 216 

partition 233 
LOAD 234 

load parameters 233, 235 
load the assembler 256 
LOC (.DC parameter) 59 
lock system 252 
logical buffer 36, 69, 74 
logical device identifier (ID) 6, 71 
logical instructions 131 
logical record length 172 



280 



130 



75 
75 



magnetic stripe reader 210, 295 

main storage boundaries 13 

main storage duplicate 102 

main storage duplicate field 31 

main storage partitions 5 

main storage store 102 

main storage store field 31 

mandatory enter field 1 08 

mandatory fill field 108 

mask 161, 162 

MAXM (TABLE parameter) 76 

MCHK (.START parameter) 52 

MD {.SFMTFLD parameter) 101 

MDUP (.SYSTAB parameter) 80 

message display routine (CFMSGDSP) 280 

MMCRT 230 

mnemonic to op code conversion chart 315 

mnemonics list 123 

MOD (.SELFCHK parameter) 112 

MODE (.KBCRT parameter) 54 

modes of entry 26, 54 

modification of instruction 248 

modify zone, decimal register 144 

modulus, self-check 42, 112 

standard modulus 10 45 

standard modulus 11 46 
MOFF 225 

monocase conversion status 90 
move data 225 
MS (.SFMTFLD parameter) 102 
multiply, binary 133 
multiply, decimal 140 
multivolume option 1 76 
MVC 227 
MVCR 227 
MVCV 228 
MVER 226 



NAME 172 

NAME (.DATASET parameter) 

NAME (.INCLUDE parameter) 

NFIL (.KBCRT parameter) 54 

NL, self-check 334 

NMIN (.KBCRT parameter) 55 

non-display of the status line 

NOP 146 

NR, self-check 334 

null operation 146 

NUMB (.EQUATE parameter) 
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112 



23 



66 
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NUMB (.SPACE parameter) 1 1 1 
numeric fiii character 54 
numeric only field 105 
numeric shift field 104 



op code 315 
OPEN 173, 193 
open a data set 

communications 1 66 

diskette 1 73 

printer 1 93 
open keyboard/display 210 
operator detach routine (CFPERATT) 281 
OPTION (START parameter) 52 
OR, binary 135 
ORD 73 

ordered key data set 73 
ORG (.START parameter) 52 
output translate table, self-check 115, 345 
OUTTAB (.SELFCHK parameter) 1 1 5 
overlapped extent check 73 
overlapped fields 227 
overlapped I/O 176 



page size (for SCS conversion) 75 
partial overlay 234, 237 
partition control area 8 
partition subroutine stack 20, 80 
partition work area 12 
partitions 6 

pass EBCDIC to keyboard 209 
Pass scan code to keyboard 209 
PB1 (.DATASET parameter) 73 
PB2 (.DATASET parameter) 74 
perform keyboard function 209 
PGSIZ (.DATASET parameter) 75 
physical buffer 36, 73, 173 
PIC (.FMTFLD parameter) 85 
PIC (.SFMTFLD parameter) 102 
picture definition 84, 102 
PLUNAME (.COMM parameter) 70 
PNAM (.START parameter) 52 
pointer I/O 37, 73 
pointer I/O, for printer 190 
pointers 5 

screen position pointers 89 
subroutine stack pointer 20 
POP 198 

position current record pointer 177 
positions remaining in field 23 
POSN 177 



PRBA 54, 196 

PRBA (.KBCRT parameter) 54 

PREFIX (.DC parameter) 59 

previous record buffer 54, 196 

PRMT (.SFMTPMT parameter) 97 

PRMT (.SYSTAB parameter) 79 

PROD (.SELFCHK parameter) 1 1 6 

product table 1 1 6 

product table, self-check 333, 337 

program check error handler (CFPGMCHK) 282 

program check errors 269, 282 

prompt system table 79 

prompts 29 

fixed position prompts 54, 98 

standard position prompts 97 



quick release data set 73 



read 

a table entry 239 

communications 1 68 

diskette 182 

magnetic stripe reader 210 
READ 182 
READMG 210 
REBF 232 

receive communications record 168 
RECFM (.COMM parameter) 70 
RECL 172 

RECL (.COMM parameter) 69 
RECL (.DATASET parameter) 74 
record length 69, 74 
REG (.EQUATE parameter) 66 
registers 8 

binary registers 9 

system registers 9, 268, 286 

decimal registers 10 

declare a register 65 

double binary registers 9 
relational compare, binary 155 
relational compare, decimal 156 
relative record number 180 
release a data set 175 
release character and edit fields 207 
REPFLD 212 
replace field on screen 212 
rerun mode 27 
rerun/display mode 27 
RESCAL 197 

reset external status bit 198 
RESMXT 199 
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53 
109 
109 



resource allocation table 6, 250 

restricted external status indicator 

RESUME 197 

resume and call subroutine 197 

RETEXT 199 

retext and resume 199 

RETURN 148 

return and enable external status 

returning (RG) exits 34, 90, 93 

RG 34, 90, 93, 292 

RGLT (.START parameter) 

right adjust, blank fill field 

right adjust, zero fill field 

right-to-left field 109 

RL 136 

rotate instructions, binary 

rotate left, binary 136 

rotate right, binary 136 

RR 136 

RSTMG 212 

RTIMER 213 

RXORW 162 



56 
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199 



135 



SCREEN (.KBCRT parameter) 
screen attributes 90, 208 
screen format 29, 89, 296 

secondary screen format 33 
screen format control string 30, 93, 195, 296 
screen position pointer 89, 92 
SCS control characters 321 
SCS conversion data set 40, 73, 180, 182, 188 

for diskette 40 
SEARCH 184 
search a table 243 
search resource allocation table 250 
secondary format 96 
secondary screen format 33 
secure diskette 172, 173 
secure volume processor (CFSECVOL) 283 
security ID 69 
self-check 1 1 2 
self-check algorithm 43 
self-check computations 329 
self-check digit 248 
self-check field 41 
self-check modulus 42 
self-check register 41 
sequential search 1 85 
sequential read data set 71 
sequential update data set 36 
sequential write data set 71 
set bits with mask 251 

set graphics error action (for SCS conversion) 75 
set indicators 251 
SETOFF 251 
SETON 251 



SFMT (.SYSTAB parameter) 80 

SGEA (.DATASET parameter) 75 

share data set, for printer 191 

share data sets 40 

shared tables 246 

shift instructions, decimal 141 

shift left, binary 1 36 

shift left, blank fill, decimal 142 

shift left, zero fill, decimal 142 

shift right and round, decimal 144 

shift right, binary 137 

shift right, pad blank, decimal 143 

shift right, retain sign, decimal 143 

shift 1 to blank register, decimal 142 

shift/ rotate instructions, binary 135 

short branch instructions 1 54 

SIDH (.COMM parameter) 69 

SIDL (.COMM parameter) 69 

sign control position 1 1 

signed numeric field 105 

skip on AND/exclusive OR mask 161 

skip on bit mask 160 

skip on constant compare 1 58 

SKIP WHILE 163 

SL 136, 142 

SLS 142 

SOFF 251 

software error mode 204 

SON 251 

special characters only 106 

special characters shift field 1 05 

special verify status 91 

SR 137, 142 

SRAT 250 

SRR 144 

SRS 143 

STACK (.SYSTAB parameter) 80 

stack pointer 20 

standard load processor 284 

standard position prompt 97 

statement symbols 14 

status line 22 

non-display of the status line 23 
storage structures 59 
store 

binary register 219 

constant 221 

decimal register 219 
store field 31, 101 
subfield definition (PIC) 102 
subfields 84 

subroutine instructions 147 
subroutine stack 80 
subroutines 1 9 

calls 20, 147 

calls through table 149 

partition subroutine stack 20 

returns 20 
subtract, binary 133 
subtract, decimal 139 
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symbolic labels 119 

symbols 14 

statement symbols 1 6 
syntax symbols 15 

SYSACLC 297 

SYSLCK 252 

system control block 5 
pointers 5 

system indicators 8, 267 

system registers 9, 268, 286 

system table 1 7, 79, 238 
for edit formats 80 
for main storage duplication 
for prompts 79 
for screen formats 80 

SYSUNL 252 



80 



transmit communications record 1 69 

TRAP 349 

TRAP (.KBCRT parameter) 54 

TREAD 168 

TRT 253 

TTERM 168 

TUNLCK 247 

TWAIT 167 

TWRT 169 

TYPE (.COMM parameter) 68 

TYPE (.DATASET parameter) 71 

TYPE (.DC parameter) 58 

TYPE (.FMTFLD parameter) 83 



unconditional branch 
unlock system 252 
update mode 26 



145 



table (data table) 

argument 238 

control statements 76 

index 238 

system table 238 
tables 1 7 

data tables 18 

label tables 18 

system tables 17 
TBBS 243 
TBDL 240 
TBFH 244 
TBFL 244 
TBFX 245 
TBIN 241 
TBRD 239 
TBRL 239 
TBWE 241 
TBWT 242 
TCLOZ 168 
TCTL 166 

terminate communications session 
test binary register for 1 50 
test data set indicator 153 
test decimal register 1 51 
test format number 1 52 
test indicator 153 
test indicator and reset 154 
time slice factor 53 
TINIT 166 
TLCK 246 

TLOC (.DATASET parameter) 75 
TMSL (.START parameter) 53 
TOPEN 166 
TRANS 253 

TRANS (.DATASET parameter) 74 
translate and test 252 
translate HDR1 label 73 
translate table 74, 252 
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V= 134 

variable leveling 59 

verify correction keystroke counter 270 

verify mismatch error 27 

verify mode 27 

verify/copy option 1 75 

vertical tab table 69 

volume ID 236 

VTAB (.COMM parameter) 69 



WAIT 176, 194 
wait for I/O completion 

communications 1 67 

diskette 176 

printer 1 94 
weighting factors 113 
weights, self-check 333 
WFMCRT 233 

WGTS (.SELFCHK parameter) 113 
WRBF 232 
write 

a table entry 239 

communications 169 

diskette 182 
write delete 182 
write insert 1 83 
write-protect 1 75 
WRT 182 
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WRTI 183 
WRTS 182 



X= 135 



zone 1 1 

ZONE 144 

zone modification, decimal 144 
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